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Introduction 



Microcomputers are becoming increasingly commonplace in homes 
and small offices. As the applications for which the computers were 
originally developed are mastered, new applications are springing up. 
One of the most recent and, indeed, most natural of the microcomputer's 
applications is to amateur astronomy. Now many amateur and armchair 

astronomers can have immediate access to useful astronomical information 
that before had to be obtained from almanacs, monthly astronomical 
magazines, or by laborious calculations with pocket calculators. Relatively 
simple programs, written in the BASIC language, can be used to relieve 
the chores of typical astronomical calculations. 

Although these calculations can be made using a programmable hand- 
held calculator, the process is inherently more laborious and error prone, 
and the results are displayed less conveniently than with a computer! 
Alternatively, the amateur astronomer can subscribe to the astronomical 
almanacs or wait for the monthly issue of an astronomical magazine, but 
then he must extrapolate or interpolate by hand from the data provided in 
these publications. How much more convenient it is to load a program 
from a cassette file or a floppy disk into your home computer and, for ex- 
ample, have the configurations and names of the Galilean satellites of 
Jupiter identified before you go to your telescope, any time you choose to 
observe, anywhere in the world! 

The programs in Celestial BASIC provide amateur and armchair 
astronomers and students with important aids to observing and under- 
standing the configurations, motions, and apparitions of our Sun and 
Moon, the planets, and the stars. Planetary positions, as well as the rising 
and setting times of all the planets. Sun, and Moon, can be quickly found 
for any locality in the world, at any time, on any date. Astronomical (star) 
times can be converted to local times and vice versa. Circles can be set on 
equatorially mounted telescopes, and true north can be determined with 



the aid of Polaris. You can find out when the next lunar eclipse will occur 
and how much of our satellite will be covered by Earth'^ shadow. You can 
learn when Mars will be in opposition next and how largfe^Jt will appear in a 
telescope, or when Venus or Mercury are favorably placed for observation 
in the morning or evening sky. 

In the comfort of your own living room, these programs allow you to 
experience changes of hours and years in the configurations of the night 
sky previously impossible except in a planetarium. You can have the night 
{or day) sky displayed on the monitor screen with the planets, Moon, and 
meteor showers. You can see how the stars look from Antarctica, or see 
how the midnight sun appears on the oil fields of Alaska's North Slope. 
You can follow the diurnal and annual progression of the star sphere. And 
if you are not up to steam in recognizing the constellations, use a tutorial 
to learn how to identify the major constellations and their brightest stars. 

Educators, who are increasingly usingcomputers at all levels in teach- 
ing, will find the programs useful to illustrate the dynamics of observational 
astronomy. In addition to the tutorial on recognizing the constellations, 
other tutorials aid in converting astronomical measurements and in learn- 
ing the latest details about the planets and their satellites. 

This book originated as a practical tool. I began to share the programs 
with others, and the interest was such that I decided to incorporate them 
into a handbook. In addition to providing current information about the 
planets, these programs provide the convenience of checking observations 
in the past and predicting them into the future. 1 have compared the 
results ofseveralofthese programs with my observational notebooks that 
extend back to the 1930s, and I find them sufficiently accurate for every- 
day observations. 

As mentioned in the introduction to the Bibliography, it is possible to 
add further steps within the structure of the program to increase the accuracy 
of the computer's readout. The references cited in the Bibliography provide 
the information necessary to achieve higher orders of accuracy. (Larger 
random access memories maybe required to incorporate these refinements.) 

The book is divided into four major sections and an Appendix. Part 
One covers times, dates, and conversions among them, updating of co- 
ordinates, and using Polaris to determine true north. Part Two concentrates 
on our Moon, and Part Three concentrates on the planets. Part Four pro- 
vides general and tutorial programs. The Appendix consists of alternative 
programs not requiring use of Applesoft™ high resolution graphics for three 
major programs in the book. Written in the Exidy Sorcerer™ computer's 
BASIC format, these programs are provided as an aid to those readers who 
wish to modify them for use in computers other than the Apple II™. 

There is also an Observer's Guide to the Programs, which can serve as 
a checklist of programs to run through to help you make the most of your 
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^observing time. A Bibliography is provided to refer you tofurther informa- 
tion on astronomical computations. 

Originally written for an Exidy Sorcerer computer, the programs have 
been rewritten for an Apple II to make them available to a wider range of 
users. The programs are written in the popular BASIC language, and com- 
plex programming techniques have been avoided. This has been done to 
minimize complications of program structure so that the programs are 
readily understandable to the beginner and adaptable to other computers. 
There are also plenty of remark (REM) statements to help the reader 
understand what the program is asking the computer to do. All the pro- 
grams are usable on computers such as the IBM^"^ Personal Computer, 
Radio Shack TRS-80™, Atari™, Commodore PET™, Exidy Sorcerer, and 
similar microprocessors, without major changes. 

Some of the programs will require modifications, however, to suit 
specialized functions of different computers. These modifications will 
occur especially in connection with the graphic displays, as the various 
computers would handle such displays quite differently. For this reason 
the use of high resolution graphics peculiar to the Apple computer were 
not used more generally. Most of the graphic displays consist of characters 
from the ASCI I character set; for example, periods, colons, X's, and asterisks 
represent the positions of the stars. For the program that uses Applesoft 
high resolution graphics to plot objects in the sky (SKYSET/SKYPLT), an 
alternative method of programming is given in the Appendix. Instruction 
lines that may need modification are identified in REM statements or in the 
preamble to each program. Most programs can be adapted relatively easily 
for use in the Southern Hemisphere, where constellations will need to be 
inverted. Several programs have the capability of offering Northern or 
Southern Hemisphere viewing without modification— SKYSET/SKYPLT, 
for example. All programs have been carefully edited, run, and checked 
against actual astronomical observations over many years. 

The programs are designed so that large memories are not required. 
Amateur astronomers having computers with 48K of random access 
memory (RAM) can readily combine several of these programs. They may 
be conveniently placed In one package when needed concurrently, or 
they can be selected by menus. 

I am grateful to the many people who have derived the equations 
forming the basic algorithms of the computer programs, many of which 
have been used in their fundamental forms for a long time. My intention is 
to provide a useful service to amateur and armchair astronomers, edu- 
cators, and students by presenting the equations in a form that allows 
them to be manipulated on a small microprocessing system. 
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TIME 



THE SCIENCE OF ASTRONOMY is an outgrowth of man's need to 
measure time. Early studies of the sl<y resulted in finding a relationship be- 
tween the motions of the heavenly bodies and the recurrence of seasonal 
and other natural phenomena. Time was measured, calendars were derived 
and religious functions were set from observations of the motions of the 
Sun, Moon, and stars. As astronomy progressed and greater precision of 
observations became possible, more precise systems of time measurement 
were needed. 

The following programs provide easy access to and conversions be- 
tween the various systems for measuring time. Because the celestial 
bodies are not fixed in space relative to Earth-centered coordinates two 
programs also provide a means to update the positions of the stars over 
the years. 




Phuto Credit: RoLkwel! Iinarimliondt Space Division 

Mankind's need to measure time and establish calendars relied on careful observations, 
of the heavens. The development of astronomy stimulated interest in other worlds and 
encouraged mankind to move out from Earth. In this paintinga space shuttle lifts off the 
launch pad at the Kennedy Space Center in Florida, with main engines and solid rocket 
motors roaring. The space shuttle is the first reusable space vehicle, and it offers eriormous 
poterjtial for future manned operations in space. 



Program 1: CALDR 



Perpetual Calendar and Day of Weele. 



All measurements of time have historically depended on astronom- 
ical observations— the day is measured from the rotation of Earth on its 
axis, the week approximates the changing phases of our Moon, the month 
is measured from the revolution of the Moon around Earth, and the year is 
measured from the revolution of Earth around the Sun. 

Many ancient peoples, particularly the Babylonians, based their 
calendars on the cycles of the Moon, and the lunar measurement of years 
has been preserved in the modern Jewish, Chinese, and Moslem calen- 
dars. By contrast, the Egyptians based their calendars on the Sun, which 
also figured prominently in their religion. The Egyptian civilization de- 
pended upon the seasonal rising of the Nile, which was closely associated 
with the solar cycle. Ancient peoples determined the solar year by observing 
the helical rising of a bright star after it had been invisible because of the 
proximity of the Sun. Sirius was often used for this purpose. By averaging 
many such helical observations, the solar year was found to be very close 
to 365 days. 

In ancient Rome, months were based on the lunar cycles. The pon- 
tifices watched for the first appearance of the thin crescent moon after the 
new moon so that they could declare the beginning of the new month. 
This first day, shouted from the steps of the Capitol, was termed Kalendae, 
which means the calling. Our word calendar is derived from this term. ' 

Unfortunately for our measurement of time, the lunar cycle is not a 
whole number of days, nor is the time Earth takes to complete an orbit of 
the Sun relative to the stars. The Moon's cycle is 29.53059 days. Earth's orbit 
around the Sun takes 365.242196 . . . days. So 12 months are short of a 
year, and 1 3 months would give us a year that is too long. And our seven- 
day week (based on religion), although close to the lunar phases, is not a 
factor of the lunar period, the month, or the year. 



CELESTIAL BASIC 



When the Romans adopted the Egyptian solaryear atthe time of Julius 
Caesar, their own lunar-solar calendar was very much in error. Introduced 
to Rome by an astronomer, Sosigenes of Alexandria, the Egyptian calendar 
was ordered into official Roman use by Julius Caesar in 45 B.C. It was called 
the Julian calendar, and it was based on a solar year of 365.25 days. The 
year was divided into months, of which eleven contained 30 or 31 days 
and the twelfth had 28 days only. The first month was March and the last 
month was February. July is named after Julius Caesar and August after 
Augustus Caesar, both months being allocated the full 31 days, as befitted 
a caesar. The seventh month was named September, the eighth October, 
the ninth November, and the tenth December, after the Latin septem, octo, 
novem, and decern, for seven, eight, nine, and ten, respectively. 

The Julian calendar lost approximately one-quarter day each year. 
This loss was corrected by adding an extra day to the twelfth month 
(February) every fourth year, which was the leap year. Nevertheless, this 
calendar gradually became out of step with the seasonal position of the 
Sun relative to the stars. The year of the Julian calendar was actually 1 1 
minutes 4 seconds longer than the time it takes the apparent Sun to 
revolve to precisely the same position. By 1500 the error amounted to 
approximately 11 days. Christian religious festivities based on Easter 
assumed a fixed vernal equinox of March 21, and as a consequence they 
werebecominggraduallyoutofstep with the seasons. Accordingly, Pope 
Gregory XIII entrusted a reformation of the calendar to a German Jesuit, 
Christopher Schlussel, whose latinized name was Clavius. (Clavius is im- 
mortalized by a large crater that bears his name near the Moon's south 
pole.) Clavius used a scheme devised by a Neapolitan astronomer, 
Aloysius Lilius, in which centuries would not be leap years unless perfectly 
divisible by 400. To correct the calendar, Pope Gregory ordered that Octo- 
ber 1 5, 1 582, should follow October 4. Despite protests from angry mobs, 
who thought that ten days of their lives were being stolen, the correction 
was made and the new calendar was called the Gregorian calendar. The 
new calendar also moved the beginning of the year from March 25 to 
January 1. 

The Gregorian calendar was adopted by most of the Roman Catholic 
countries and by Denmark and the Netherlands in 1 582. But it was nearly 
two centuries before it was generally accepted. During that time a traveler 
could leave England in February 1679, for example, and find that it was 
February 1680 in some parts of Europe and in Scotland. The day of the 
month was also different between England and some parts of Europe. 

Finally, other countries began to accept the new calendar. The Pro- 
testants in Germany and Switzerland adopted it in 1700. Britain and the 
American colonies adopted the Gregorian calendar in 1752, omitting 
eleven days between September 2 and 14. Prussia began to use the new 
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calendar in 1778. Other countries followed— Ireland in 1782, Russia in 
1902. Following the French Revolution, a new calendar was adopted in 
France, the first day of the year being September 22, 1 792. This calendar 
was used until December 31, 1805, when France accepted the Gregorian 
calendar again. 

Other calendars are still in use, however, particularly in regard to 
religious events. The Jewish calendar uses a lunar and a solar cycle. The 
months are lunar months, but they are about 11 days short of a solar year. 
A thirteenth month periodically has to be intercalated to maintain some 
synchronism with the solar cycle. The Moslem calendar ignores the solar 
cycleentirelyandistiedtolunarcycleswith alternate monthsof30and 29 
days. The year begins at different seasons over a 32.5-year cycle. Prior to 
World War II there was an attempt among some businesses in Europe to 
introduce a 13-month calendar in which all months v^'ould have four 
weeks. This business calendar would have allowed more meaningful 
financial comparisons, but it did not receive wide acceptance. 

The CALDR program offers several alternatives. You can choose to 
ask the computer to tell you the day of the week for any date, provide you 
with a calendar for any month of any year, or provide you with a calendar 
for the holidays of any year. 

The program automatically adjusts for leap years. It adjusts all months 
of the calendar, the number of days from the beginning of the year to the 
beginning of each month, and the number ofdays remaining in the year at 
the end of any month, and it displays them as well. 

The program starts by asking you to select one of the routines. If you 
select the calendar routine, it then asks you to select the month of the year 
that you wish to havedisplayed. It jumps to a subroutine that finds the day 
of the week for the first day of the year and then runs through the months 
to the month requested, which it displays on the screen. Whilethe program 
could be simplified by jumping to the single month and finding the day of 
the week for the start of that month, the present form allows you to modify 
the program if you wish so that it would display a calendar for a whole 
year, month by month. 

The routine to print the day of the week for any date is a standard 
routine. 

The third routine displays the holidays in any year and is somewhat 
more complicated. It uses the day-of-t he-week routine and a subroutine 
based on EASTR (Program 2). Since many holidays are based on actual 
dates, such as Christmas, the program easily adds the day of the week to 
the date. Other holidays, such as Thanksgiving, are related to a particular 
day of the week in a given month. The program ascertains the first Thursday 
(in the case of Thanksgiving) in the required month and then adds the ap- 
propriate number of weeks to find such holidays. Other holidays, such as 
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CALDR 



10 
?G 
30 
40 
50 
60 
70 

go 

90 

100 

1 10 

120 

130 

UD 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

4 70 

480 

490 

500 

510 

520 

530 



HOME : 

PR J NT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
FOR K 
HOME 
PR INT 



CALENDAR 



I" 



PR INT 
; PRINT 
TAB( 103"- 
TAB( 10)"J 
TAB( 10)"- 

PRINT : PRINT 
TABC 2) "A PERPETUAL CALENDAR, 
TABC 7)" AND HOLIDAY PROGRAM" 

PR INT 

TAB( 5) "BY ERIC 
^ 1 500 TO STEP 



DAY-OF-WEEK. 



BURGESS F.R.A 
- 1 : NEXT K 



PR INT 



PRINT 



DIM M(1 2) 

PRINT "YOU CAN SELECT A CALENDAR FOR 

PRINT "OR THE DAY OF THE WEEK FOR ANY 

PRINT "OR THE HOLIDAYS FOR ANY YEAR." 

PRINT : PRINT : PRlrjT 

PR INT : PR INT : PR INT 

PRINT "SELECT CALENDAR 

PRINT " DAY OF WEEK 

PRIWT " OR HOLIDAYS 

PRINT : INPUT "TYPE C, D, 

IF B$ = "D" GOTO 1840 

IF B$ = "H" GOTO 2250 

IF BS < > "C" THEN PRINT 

HOME : PRINT : PRINT 

GOTO 460 

REM 



ANY MONTH" 
DATE" 



(C)" 






(D)" 






(H)" 






OR H 


";BS 




"INVALID 


ENTRY" 



PR INT 



GOTO 1180 



SUB TO SELECT MONTH FOR PRINTING 

ON N GOTO 310,320,350,360,370,380,390,400,410,420,4 
PRINT"JANUARY";:GOT045D 
LY - 1 THEN X = 1 

1 AND W < > N THEN 
FEBRUARY";: GOTO 450 
MARCH"; : GOTO 450 
APRIL";: GOTO 450 
MAY"; : GOTO 450 
JUNE"; : GOTO 450 
JULY"; : GOTO 450 
AUGUST"; : GOTO 450 
SEPTEMBER"; : GOTO 450 
OCTOBER"; : GOTO 450 
NOVEMBER"; : GOTO 4 50 
DECEMBER"; : GOTO 4 50 



GOTO 230 



3 0,44 



IF 

IF H ^ 
PRINT ' 
PRINT ' 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
RETURN 
PRINT : 
RESTORE 
INPUT "YEAR 
HOME : 
IF Y > 
PR INT 
IF Y / 
LY = 1 
PR INT 



PR TNT 



PRINT 



REQUIRED ";Y 
PRINT : PRINT : PRINT 
1 752 THEN 520 

PRINT "YEAR MUST BE AFTER 
4 - INT (Y / 4) = AND Y 



1752" 
/ 100 



GOTO 470 
INT (Y 



/ 100) < > THEN 



INPUT "MONTH REQUIRED ";W 
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CAIDR (continued) 



540 


IF 


550 


H = 


560 


GOT 


570 


Q = 


580 


GOS 


590 


GOT 


600 


K = 


610 


L = 


620 


- 


630 


P = 


640 


Z1 = 


650 


Z4 = 


660 


z = 


670 


I = 


680 


IF 


690 


D = 


700 


RET 


710 


S = 


720 


DAT 


730 


HOM 


740 


Q = 


75 


PRI 


760 


FOR 


770 


FOR 


780 


FOR 


790 


PR I 


800 


HOM 


810 


S ^ 


820 


IF 


830 


IF 


840 


IF 


850 


IF 


860 


GOT 


870 


HOM 


880 


PRI 


890 


IF 


900 


GOT 


910 


HOM 


920 


PR I 


930 


GOT 


940 


IF 


950 


HOM 


960 


PR I 


970 


V = 


980 


FOR 


990 


IF 


1000 


GO 


1010 


GO 


1020 


PR 


1030 


IF 


1040 


IF 


1050 


PR 


1060 


PR 


1070 


PR 


1080 


PR 



U < 1 OR W > 12 THEN PRINT "INVALID RESPONSE": PRINT : 
1 

730 

1 :E = 1 

UB 600 • 

710 ■ • 
INT {0.6+C1/Q)) 

Y - K • ' 

Q + 1 2 * K - 

L / 100 

INT (P / 4):Z2 = INT (P):Z3 = INT ((5 * L) / 4) 

INT (1 3 * (0 + 1 ) / 5 ) 
Z4+Z3-Z2+Z1+E-1 
Z - C7 * INT (Z / 7) ) + 1 
Bf ^ "H" THEN RETURN 

- CZ - 1) 
URN 


A 0,31,28,31,30,31,30,31,31,30,31,30,31 
E : PRINT : PRINT : PRINT : PRINT 

1 : E = 1 : GOSUB 600 
NT " CALENDAR FOR "; Y 

F = 1500 TO STEP - 1: NEXT F 

N = TO 12: READ MCN): NEXT N 

N = 1 TO 12 
NT : PRINT : PRINT : PRINT : IF (N - 1) < > W GOTO 800 
E : PRINT : PRINT "PLEASE WAIT" 
S + MCN - 1 ) 
M(N) < > 28 THEN 840 
LY = 1 THEN 940 

H - 1 AND W < > N THEN GOTO 320 
LY = 1 AND H - 1 AND W > 2 THEN GOTO 870 
910 

E : PRINT : PRINT 
NT "- ";S + 1 ; TAB{ 7 ) ; 
H = 1 AND W < > N THEN GOTO 320 
980 

E : PR INT : PR INT 
NT "- ";S ; TAB C 7); 
980 

H ^ 1 AND W < > N THEN GOTO 320 
E : PRINT : PRINT 
NT "- ";31; TAB( 7) :S = S + 1 


I = 1 TO 10: PRINT "-";: NEXT I 
H = 1 GOTO 1700 
SUB 300 
TO 1160 
INT "JANUARY"; : GOTO 1160 

LY - 1 THEN X = 1 

H - 1 AND W < > N GOTO 1180 
INT "FEBRUARY";: GOTO 1160 

INT "MARCH";: GOTO 1160 '- ' ' ■ 

INT "APRIL"; : GOTO 1160 
INT "MAY";: GOTO 1160 : >, ;,,■ 



GOTO 530 
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CALDR (continued)- 



1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1510 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1 560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 



PRINT "JUNE";: GOTO 1160 
PRINT "JULy";: GOTO 1160 
PRINT "AUGUST";: GOTO 1160 
PRINT "SEPTEMBER";: GOTO 1160 
PRINT "OCTOBER";: GOTO 1160 
PRINT "NOVEMBER";: GOTO 1160 
PRINT "DECEMBER";: GOTO 1160 
FOR I = 1 TO 10: PRINT "-";: NEXT 
PRINT " "; 

< > N GOTO 1290 
GOTO 1220 



S; 



AND H = 1 AND W > 2 THEN 1280 
> 28 THEN GOTO 1260 



IF H = 1 AND W 
IF LY = 1 THEN 
PRINT 365 
GOTO 1290 
IF LY = 1 
IF M(N> < 
PRINT 335;" 
GOTO 1290 
PRINT 366 - 
GOTO 1290 
PRINT 366 - S - 1;" -"; 
REM PRINT HEADING OF DAYS OF WEEK 
IF H = 1 AND W < > N THEN GOTO 1350 
CHR$ (10) 
PRINT " S M T W 



S;" -"; 



I 



PRINT 



1 TO 40; 

1 TO 6 

> W THEN 1380 



PRINT 

PRINT 

PRINT 

FOR I 

FOR C 

IF N <: 

PRINT 

IF H = 1 AND W 

PRINT TABC 2) 

FOR G = 1 TO 7 
D = D + 1 

IF N > 2 AND LY 

IF N > 1 AND LY 
D2 = D - S 

GOTO 1470 
D 2 = D - ( S - 1 ) 

IF D2 > M{N) + 

IF H = 1 AND 



S" 



NEXT I 



< > N THEN GOTO 1400 



= 1 AND H = 1 THEN GOTO 1440 
= 1 THEN GOTO 1460 



I 



THEN GOTO 1550 
> N THEN GOTO 1520 
1 



+ X 

U < 
IF LY =. 1 AND N > 2 THEN 02 = 02 
IF D2 > THEN PRINT D2; 
PRINT TABC 2 + 6 * G>; 
NEXT G 

IF D2 = MCN) + X THEN GOTO 1560 
NEXT C 
D = D - G 
IF H = 1 AND W < > N THEN GOTO 1600 
PRINT : PRINT 

INPUT "PRESS RETURN TO CONTINUE "-AS 
GOTO 1630 
NEXT N 

IF H = 1 AND W < > N THEN GOTO 1630 
FOR I = 1 TO 6: PRINT ;: NEXT I 
PRINT : PRINT 
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CAIDR (continued) 


1640 


HOME : PRINT : PRINT : PRINT 


1650 


INPUT "WANT TO RETURN TO MENU? Y/N " ; A $ 


1660 


PRINT 


1670 


IF AS = "Y" THEN CLEAR : GOTO 120 


1680 


IF A$ < > "N" THEN 1650 


1690 


GOTO 1820 


1700 


IFW=1THEN1020 


1710 


IF W = 2 THEN 1030 


1720 


IF W = 3 THEN 1060 


1730 


IF W = 4 THEN 1070 


1740 


IF W = 5 THEN 1080 


175D 


IF W ^ 6 THEN 1090 


1760 


IF W :^ 7 THEN 1100 


1770 


IF W = 8 THEN 1110 


1780 


I F W = 9 THEN 1120 


1790 


IF U = 10 THEN 1130 


1800 


IF W = 1 1 THEN 1140 


1810 


IF W = 12 THEN 1150 


1820 


HOME 


1830 


GOTO 2230 


1840 


PRINT 


1850 


HOME 


1860 


PRINT : PRINT : PRINT 


1870 


J$(1 ) = "SUNDAY" 


1880 


J $ (2 ) = "l^ONDA Y" 


1890 


J $ (3) - "TUESDAY" 


1900 


JSC4) - "WEDNESDAY" 


1910 


JJC5) = "THURSDAY" 


192P 


J$ (6) = "FRIDAY" 


1930 


j$(7) = "SATURDAY" 


1940 


IF HY = 1 THEN GOTO 2020 


1950 


HOME : PRINT : PRINT : PRINT 


1960 


PRINT : PRINT : PRINT 


1970 


PRINT "ENTER DATE" 


1980 


PRINT : PR INT 


1990 


INPUT " THE YEAR ";Y 


2000 


INPUT " THE MONTH ";M 


2010 


INPUT " THE DAY ";D 


2020 


= M : E = D 


2030 


IF HY = 1 THEN GOTO 2 080 


2040 


IFY>1752THEN GOTO 2 080 


2050 


HOME : PRINT : PRINT : PRINT 


2060 


PRINT "YEAR MUST BE AFTER 1752" 


2070 


GOTO 1950 


2080 


GOSUB 600 


2090 


IF HY = 1 THEN RETURN 


2100 


HOME : PRINT : PRINT : PRINT 


?110 


VTAB 10 


2120 


PRINT Y;", ";H;", ";E 


2130 


PRINT 


2140 


PRINT " IS A "; J${Z) 


2150 


PR INT : PR INT : PR INT 


2160 


INPUT "WANT ANOTHER DATE? Y/N ";DI 


2170 


IF D$ ^ "Y" THEN GOTO 1950 


2180 


IF D$ = "N" THEN GOTO 2200 



^1 



PROGRAM 1:CALDR 
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■CAIDR (continued)- 



2190 
2200 
2210 
2220 
223 
2240 
2250 
2260 
2270 
2280 



GOTO 2160 



PRINT "INVALID RESPONSE ": PRINT 

PRINT : INPUT "WANT TO RETURN TO MENU-^ Y/n'"-CJ 
"Y" THEN CLEAR : GOTO 120 
> "N" THEN PRINT "INVALID RESPONSE": PRINT 



I 



IF C$ 
IF C$ 
HOME 
END 

REM HOLIDAY ROUTINES 
HOME : PR INT : PR INT 

INPUT "YEAR REQUIRED ";Y$:Y = VAL CY$3 
- INT CY / 4) = AND Y / 100 



GOTO 2200 



2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 



FOR YEAR 



'NEW YEAR'S DAY.. 
TAB( 30)"JAN. 1" 
LINCOLN'S BIRTHDAY 



';Y;" THE HOLIDAYS 
, . " ; J $ ( 2 ) ; ' 



IF Y / 
LY = 1 

REM GET DAY OF FIRST DAY OF YEAR 
D " 1:M = 1:HY = 1: GOEUB 7870 
HOME 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
REM 
2380 M = 2: D = 12 
2390 GOSUB 2020 

PRINT "LINCOLN'S BIRTHDAY 
PRINT TABC 30)"FEB.12" 
REM WASHINGTON'S BIRTHDAY 
M=2:ZW-2:D=1 
GOSUB 2020 
IF Z < > ZW THEN 
D = D + 14 
PRINT "WASHINGTON 
PRINT TABC 30)"FEB.";D 
REM VALENTINE'S DAY 
= U:M = 2: GOSUB 2020 
PRINT "VALENTINE'S DAY 
PRINT TAB( 30)"FEB.14" 
REM ASH WEDNESDAY 
GOSUB 3220 



INT (Y / 100) < > THEN 



ARE 



2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 



' ; J S C Z ) ; 



D-D 



1 



GOTO 2440 
B'DAY MONDAY,"; 



J $ C2) 



D = D - 46 

IF M = 4 THEN 

IF LY - 1 AND 

IF M = 3 THEN 

IF LY - 1 AND 

IF D < 1 THEN 

GOSUB 3 4 80 

PR INT "ASH WEDNESDAY 
D - 17:M - 3: GOSUB 2020 

PRINT "ST. PATRICK'S DAY 

REM EASTER 

GOSUB 3220 
2 6 70 MX = M 
2680DF=D-2 
2690 IF DF < 1 THEN M = 
2700 GOSUB 3480 
2710 PRINT "GOOD FRIDAY 
2720 M = MX 



D 


= D 


+ 31 


M 


= 3 


GOTO 2590 




M 
D 


= 3 
= D 


THEN 
+ 28 


D 
M 


= D 
= 2 


+ 29:M = 2: 


GOTO 2590 


D 
D 


< 1 
= D 


THEN 
+ 28 


D 
M 


= D 
= 2 


+ 29:M = 3: 


GOTO 2610 



WEDNESDAY,"; TABC 30)M$;D 
";JS{Z);","; TABC 30)"MAR 



17" 



M - 1 : DF = DF - 31 



FR IDA Y. 



TABC 30)M$;DF 



m 

I 
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CAIDR (continued) ■ 



SUNDAY, "; TAB( 30)H$;D 



MONDAY, " TABC 30) "MAY ";D 
";J$CZ);", "; TABC 30) "JUL 



2730 PRINT "EASTER SUNDAY 

27AD REM MOTHER'S DAY 

2750 M=5:ZW=1:D=1 

2760 GOSUB 2020 

2770 IF Z < > ZW THEN D ^ D + 1: GOTO 2760 

2780 D = D + 7 

2790 PRINT "MOTHER'S DAY SUNDAY, "; TABC 30)"MAY " ; D 

2800 D=1:M=5:ZW=2 

2810 GOSUB 2020 

2820 I F Z < > ZW THEN D - D + 1: GOTO 2810 

2830 D = D + 28 

2840 IF D > 31 THEN D = D - 7 

2850 PRINT "MEMORIAL DAY 

2860 D = 4:M = 7: GOSUB 2020 

2870 PRINT "INDEPENDENCE DAY ";J$CZ);", "; TABC 30) "JUL, 4" 

2880 REM LABOR DAY 

28 9 M = 9:ZW = 2:D = 1 

2900 GOSUB 2020 

2910 IF Z < > ZW THEN D = D + 1: GOTO 2900 

2920 PRINT "LABOR DAY MONDAY, "; TABC 30)"SEP.";D 

2930 REM COLUMSyS DAY 

2940 M = 10:ZW = 2:0 = 1 

2950 GOSUB 202 ; ■ 

2960 IF Z < > ZW THEN D = D 4 1; GOTO 2950 

2970 D = D + 7 

2980 PRINT "COLUMBUS DAY MONDAY, "; TABC 30)"OCT.";D 

2990 D=D-9: IFD<2 THEN D = D + 7 

3000 PRINT "ELECTION DAY TUESDAY, "; TABC 30)"N0V.";D 

3010 D = 1 1 :M = 11: GOSUB 2020 

3020 PRINT "VETERAN'S DAY ";J$(Z);", "; TABC 30)"N0V.11" 

3030 REM THANKSGIVING 

3040 M = 11: ZW = 5:D = 1 

3050G0SUB202O 

3060 IFZ< >ZWTHEND-D+1:GOT0305D 

3070 D = D + 21 

3080 PRINT "THANKSGIVING THURSDAY, "; TABC 30)"N0V.";D 

3090 REM CHRISTMAS 

3100D=25:M=12 

3110 GOSUB 2020 

3120 PRINT "CHRISTMAS DAY 

3130 D = 26:M = 12 

3140 GOSUB 2020 

31 50 PRINT "BOXING DA Y 

3160 PRINT 

3170 PRINT 

3180 INPUT "WANT TO RETURN TO MENU? Y/N ";A$ 

3190 IF A$ ^ "Y" THEN CLEAR : GOTO 120 

3200 IF Af < > "N" THEN PRINT "INVALID RESPONSE": PRINT 

321 GOTO 2230 

3220 REM SUB TO CALC D AND M FOR EASTER SUNDAY 

3230 N = Y - 1900 

3240 A ^ N / 19 

3250A=19*CA-INTCA)) 

32606= INTCC7*A+1)/19) ■ 

3270 M = 



;J$f2);", "; TABC 30) "DEC. 25" 
;J$CZ);", "; TABC 30)"DEC,26" 



GOTO 3180 



L 



PROGRAM IrCALDR 
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CALDR (continued)- 



3280 

3290 

3300 

3310 

3320 

3330 

33i0 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 



M = 
X = 
IF X 

IF X 

GOTO 
M = 
Q = 
W = 
W = 
W = 
DE 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



f1 1 * A + 4. 00001 - 
M - INT (M) 

= 1 THEN GOTO 3330 

< > 

3340 



B) / 29 



1 THEN M = 29 * X 



INT (N / 4) 
(N + Q + 31 - 
7 * (W - INT 

INT (W) 
INT (25 - M 



OE 
DE 

DE : 
DE • 
DE • 
OE ; 

Y = 

Y = 



RETURN 



■ THEN M 
: THEN M 
■■ THEN M 

- 9 THEN 

: THEN D : 

THEN D : 

1974 OR Y : 

1994 THEN I 



M) / 7 
CW) ) 

- W) 
= 4 
= 3 
= 3:D 
DE = 

: 31 - 

■■ OE 

■ 1984 

' = 



= 31 

DE + 9: GOTO 3420 
ABS (DE) 



THEN 
■ 7 - 



D = ■ 
31 :M = 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



M$ = 
M$ = 
MS = 
M$ = 
M$ = 
M$ = 
M$ = 
RS = 
M$ = 
M$ = 
M$ = 
MS = 



"JAN. 

"FE8. 

"MAR.' 

"APR .' 

"MAY 

"JUN.' 

"JUL .' 

"AUG. ' 

"SEP.' 

"OCT, 

"NOV. 

"DEC . 



RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 




photo Credit: NASA 



Astronauts leaving Earth see the launch site on the Florida coastline and the distant cur- 
vature of Earth's horizon. Views like this put a new perspective on our planet and our 
attitude toward it. 
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Program 2: EASTR 



Date of Easter Sunday for Any Year__ 



The date of Easter is very important in the Christian ecclesiastical calen- 
dar. It governs events over almost a third of each year, from Septuagesima 
Sunday {nine weeks before Easter Sunday) to Trinity Sunday (eight weeks 
after). 

The date of Easter Sunday is derived astronomically. At first Easter was 
synchronized with the Jewish Passover, but this, although accepted by the 
Eastern Church, was rejected by the Church in Rome. In the year 325 it was 
decreed at the Council of Nicaea that Easter should be celebrated on the 
same date by all Christians. That date was decided to be the first Sunday 
following the first full moon on or after the vernal (spring) equinox. The 
vernal equinox occurs when the Sun passes the point at which the ecliptic 
crosses Earth's equatorial plane from south to north. At the time of the 
Council of Nicaea, the vernal equinox was assumed to be fixed at March 21 . 

As mentioned in connection with the CALDR program, the old Julian 
calendar had a year that was too long. By the sixteenth century the vernal 

equinoxwasactuallyoccurringonMarchn, not March 21. Thusthe cele- 
bration of Easter would inevitably move toward the summer season. To 
stop this. Pope Gregory XIII introduced his revised calendar to maintain 
the Easter celebration in the spring season and to maintain a better 
approximation of the solar year. 

Today Easter Sunday is calculated as the Sunday following the first full 
moon after the vernal equinox, which occurs on March 21 . It can thus fall 
as early as March 22 or as late as April 25. Passover is also governed by the 
vernal equinox full moon, but while Easter intentionally falls after the full 
moon, Passover coincides with the full moon. Consequently, Passover 
cannot begin on Easter Sunday. 

In 1966 Thomas H. O'Beirne published an algorithm to calculate the 
date of Easter for any year between 1 900 and 2099. His algorithm is much 
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simpler than the complex algorithms developed in the early 1800s by 
Gauss. Gauss's theories for the congruence of numbers allowed calen- 
dncal problems to be solved, but some of his theories were quite complex 
and required special rules to allow for exceptions. The O'Beirne algo- 
rithm, which works for two centuries only in the form used in this book 

divides the year by 19and a multiple of the remainder by 19. Then it usesa 
multiple of that remainder for another division and further manipulates 
the remainders. This short program uses the O'Beirne algorithm (instruc- 
tions 1 70 through 320). It quickly provides the date of Easter Sunday for 
any year between 1 900 and 2099. However, even this algorithm needs to 
be corrected for certain years (1974, 1984, and 1994). The date given by 
the program has been adjusted by adding 7 days to the date for Easter 1 974 
and 1 984. For Easter 1 994 the date has been adjusted by adding 7 days, 
subtracting 31 days, and changing the month to April. 
The listing for the EASTR program follows. 




PROGRAM 2: EASTR 
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EASTR 



10 
20 

3D 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 



HOME 

PRINT : PRINT : PRINT : PRINT 

PRINT "THIS PROGRAM CALCULATES THE DATE" 

PRINT "OF EASTER SUNDAY FOR ANY YEAR" 

PRINT " BETWEEN 1900 AND 2099" 

PRINT : PRINT : PRINT 

PRINT " BY ERIC BURGESS F.R.A.S." 

PRINT ; PRINT : PRINT 

PRINT TABC 6>"ALL RIGHTS RESERVED BY" 

PRINT TABC 6)"S 8 T SOFTWARE SERVICES" 

FOR J = 3000 TO 1 STEP - 1: NEXT 

HOME : PRINT : PRINT : PRINT : PRINT 

INPUT "YEAR REQUIRED ";Y$ 
Y = VAL (Y$> 

IF Y < 1900 OR Y > 2099 THEN PRINT "INVALID RESPONSE": PRINT 

IF Y = THEN PRINT "INVALID RESPONSE" PRINT : GOTO 130 



IF 

IF 



Y < 1900 OR 

Y = THEN 

Y - 1900 
N / 19 
19 * CA - INT (A)) 

INT C<7 * A + 1) / 


* A + 4.00001 - B) 

INT CM) 
1 THEN GOTO 270 
> 1 THEN M = 29 



GOTO 130 



19) 



C11 
M - 
X = 
X < 



/ 29 



* X 



GOTO 280 



INT (N / 4) 
CN + Q + 31 - M) / 
7 * CW - INT CW>) 
INT CW) 
INT (25 - n - W) 
HOME 

PRINT : PRINT 
TABC 5) 
PRINT 



PR INT 
PRINT 
IF DE 
IF OE 
IF DE 
IF DE 
IF DE 
IF DE 
IF Y 
IF Y 
PR INT 
FOR J 
PR INT 
PRINT 



PRINT : PRINT : PRINT 
EASTER SUNDAY IN ";Y;" IS 
TABC 15); 



PRINT 
THEN H$ = "APRIL" 
THEN MJ = "MARCH" 

THEN PRINT "MARCH 31": GOTO 460 
- 9 THEN DE = DE + 9: GOTO 400 



THEN D = 

THEN D = 
1974 OR Y = 
1994 THEN D 

";M$;" ";D 

2000 TO 1 STEP 

PRINT : PRINT 
TABC 5)""; 



31 

DE 

1984 THEN 

= D + 7 - 



ABS CDE) 



D = D 
31 :M$ 



+ 7 



"APRIL" 



- 1: NEXT 

PRINT 



INPUT "DO YOU WANT ANOTHER YEAR ";A$ 



IF A$ 
IF A$ 
HOME 
END 



= "Y" THEN GOTO 120 

< > "N" THEN PRINT "INVALID REPLY" 



GOTO 490 



J 




rtwlo Credit: NASA/fohmQin 

Our perspective changes when we see Earth from space. Our bluc-grcen planet 
becomes an astronomical body like the other worlds of space. Watchingour planetspln 
on its axis gave a new dimension to our measurement of time. This photograph was ob- 
tained by the astronauts in Apollo 13 on their journey home from the Moon. It shows 
the southwestern United States through a great clearing of the cloud deck surrounding 
ourp/anet. Part of Mexico, the peninsula of Baja California, and the Gulf of California 
are also clearly visible. 
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Program 3; TIMES 

Time Conversion: Local Mean to Sidereal, or Sidereal to 
Local Mean 

The star sphere as viewed from Earth is identified by a system of grid 
lines known as circles of right ascension and declination {see Figure 

3.1a-b).Thepolesofthecelestialsphere, directly over Earth's poles, are 
90 degrees north and south declination. The celestial equator, the plane 
of Earth's equator projected on the celestial sphere, is degrees declina- 
tion. The zero of right ascension is the point at which the plane of the 
ecliptic (the plane of Earth's orbit) crosses the plane of Earth's equator 
from south to north. This point is called the vernal equinox or the first 
point of Aries. Because Earth wobbles on its axis, none of these points is 
fixed in space. Over a period of some 26,000 years the axis of spin moves 
to point around a circle in the heavens. Likewise, the vernal equinox 
moves through the zodiacal constellations. Although it is known as the 
first point of Aries, it is now located in the constellation Pisces. 

At any instant, a given locality's sidereal time (startime) is the timethat 
haselapsedsincethe most recent meridian passage of the vernal equinox. 
The meridian is the circle projected on the celestial sphere that passes 
through the celestial pole, the observer's zenith, and the south point on 
the horizon. In the Southern Hemisphere it passes through the north 
point on the horizon. 

Like local time, sidereal time is measured in hours, minutes, and 
seconds, which are, however, shorter than those of solar time. While 
Earth spins on its axis relative to the Sun in 24 hours (the mean solar day). 
Earth also goes around the Sun in very nearly 365.25 days. So relative to 
the stars. Earth rotates on its axis in less than 24 hours. The sidereal day is 
accordingly 3 minutes 55.91 seconds shorter than the mean solar day. In 
the orbital period of 365.25 days this difference adds up to 24 hours. 

Sidereal time provides the hour of right ascension on the meridian at 
any local time. Thus if the sidereal time is 23 hours, stars or planets having 
a right ascension of 23 hours will be on the meridian at that time. The hour 

angle of a star or a planet is the angulardistance measured westward along 
the celestial equator from the meridian to the hour circle of the star (see 
Figure 3. 1 b). it is found by subtracting the star's right ascension from the 
local sidereal time. If the sidereal time is known at a particular instant, 
together with the right ascension, the position of a star in the sky can also 
be found. In this way, using graduated circles (known as settingcircles) on 
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Ecliptic pole 



Celestial north 
pole 




Celestial 
sphere 



Ecliptic 
{projection of 
Earth's orbit) 



Celestial equator 

(projection of 

Earth's equator) 





/HourX y 


- Celestial north 
pole 


f\?^ Vernal Eorth/j 
/ \.^j equinox ^f^Ci 


/ circle \^ 

d 


jh 



2h 



'«'>«/ 



3^1 



^J!, 



'^e, 



"fSior 



6h 



The celestial sphere as viewed from Earth. Part (a) illustrates the projection 
of Earth's poles, equator, and orbit on the celestial sphere. The vernal 
equinox is the point at which the plane of Earth 's orbit crosses the plane 
of Earth 's equator from south to north. Part (h) illustrates how these pro- 
jections determine the grid lines of right ascension and declination. 

Figure 3. 1 . 



PROGRAM 3: TIMES 2T 



the axes of an equatorially mounted telescope, astronomers can direct a 
telescope to pointtoward faint objects whose right ascension and declination 
are given in star atlases. 

This program computes local sidereal time given local clock time or 
vice versa. It applies worldwide; you can enter location parameters (time 
zone, town name, longitude) each time you run the program, or you can 
lon^^ y°^;; 'ocal parameters when you key in the program (instruction 
190) and change them when asked during a run, still leaving your own 
locality permanently in the program. This would be useful if you wish to 
compute time for some other locality, such as a vacation observing site A 
typical display produced by this program is shown in Figure 3.2 



INTERUftL FOR TIME CftLCS Z'4 HRS 



DEC HRS 

23 . 00 
g3 . 00 
23 . 00 
23 . 00 



LMT 
HR/riI/SE 

23/0/0 
23/0/0 
23/0/0 
23/0/0 



DEC HRS^'^ 

?.?135 
7,7792 
?.8449 



DO YOU WAHT'nORE CALCULATIONS 



HR/M1/&E 

7/30/52^ 
?/42/48 
?/46/45 
7/50/41 



Th/s f/gufeshow.s- a c//5p/ay produced bK the T/MfSprogram, g/v/ng con versions for a 5ene5 o/ 
three ocal mean times separated by 24 hours. Times are expressed ir, decimal hours and 
hours/minutes/seconds irrespective of how you input the first time in the series 



■Figure 3,2- 
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The program asks for your time zone and longitude and applies a cor- 
rection to clocl< time to tal<e into account your location within your time 
zone. You can convert between universal time (U.T.) and sidereal time at 
longitude by entering time zone and longitude when asked. The pro- 
gram can be modified easily if you wish to accept longitude only, ignoring 
the time zone. Alternatively, you can have it ignore longitude and calculate 
times moreapproximatelyfromthetimezoneinputonly. This alsoapplies 
to other programs in this book where both time zone and longitude are 
shown as inputs. 

Times are computed within a few seconds' accuracy, suitable for set- 
ting circles on equatorial mounts. You can use decimal hours or hours, 
minutes, and seconds for inputs. The program does not correct for 
daylight saving time; you must adjust inputs and outputs when this is in 
force at your locality or at the locality for which you are computing data. 

The program is written for and tested on an Apple II. If you are using a 
TRS-80, substitute CLS for HOME to clear the screen {in instructions 20, 
140, 270, etc.). For other computers you must use an ASCII instruction to 
clear the screen, such as PRINT CHR$(12) or CHR$(24). TRS-80 users also 
should substitute the ENTER key for the RETURN key in instruction 510. 

The listing of the TIMES program follows. 






PROGRAM 3: TIMES 



23 



TIMES 



10 

20 

30 

40 

50 

60 

70 

8 

90 

100 

110 

120 

150 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

?40 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

5 20 

530 



FLG = 

HOME ; 

PR INT 

PRINT 

PR INT 

PR INT 

PR INT 

PR INT 

PRINT 

PRINT 

PR INT 

PR INT 

FOR J 

HOME 

REM 

REM 

REM 

REM 

ZN = 8: 

PR INT 
: PRINT 
PRINT 
PR INT 
INPUT 
IF A$ 
IF A$ 
HOME : 
INPUT 
INPUT 
ZN = 



PRINT : PRINT : PRINT 

PR INT : PR INT 
TABC 12)"TIME CONVERSIONS' 



TABC 
TAB ( 



10)"A COMPUTER PROGRAM" 
12) "FOR ASTRONOMERS" 



TABC 8) "BY ERIC BURGESS F.R.A.S." 

TAB( 8)"ALL RIGHTS RESERVED BY" 

TAB( 8)"S S T SOFTWARE SERVICE" • 
= 3 000 TO 1 STEP - 1 : NEXT ■ ; 

: PRINT : PRINT : PRINT 
SET INITIAL CONDITIONS ZN TIME ZONE 
- IF EAST OF GREENWICH L$ NAME OF 
YOUR LOCALITY LO IE LONGITUDE - IF EAST 
EXAMPLE IS FOR WEST COAST 
:LS ^ "SEBASTOPOL" :L0 = 122.49 
"INITIAL CONDITIONS SET FOR "LS 

: PRINT TABC 10)"TIME ZONE ";ZN 

TABC 1 0) "LONGITUDE ";L0 



"DO YOU WANT TO 

= "N" THEN 330 

< > "Y" THEN PRINT 
: PR INT : PR INT 

"LOCATION NAME " ; L $ 

"TIME ZONE ";ZN$ 
VAL CZNS) 



CHANGE CONDITIONS CY/N) ";A$ 
"INVALID REPLY": PRINT : 



GOTO 240 



INPUT "LONGITUDE ";L0$ 
LO = VAL CL0$3 

HOME : PR INT : PR INT : 
Z - ZN 

IF FLG = 1 THEN 820 



PR INT 



A$ = "' 
PR INT 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
INPUT 
HOME ; 
INPUT 



:A1$ - "' 
"PROGRAM 



:A2$ = "' 

COMPUTES 



:A3$ = "" 
LOCAL MEAN 



TIME CLMT)" 



" WHEN GIVEN LOCAL SIDEREAL TIME CLST)" 

"OR LOCAL SIDEREAL TIME WHEN GIVEN" 
LOCAL MEAN TIME" 

"AND YOU CAN REQUEST CALCULATIONS" 
"FOR A NUMBER OF TIME INTERVALS": PRINT 
"TIME MAY BE ENTERED AND DISPLAYED IN" 
"DECIMAL HOURS OR HRS. MIN. SEC" 

USING 24 HOUR CLOCK": PRINT 
"TIME INTERVALS MUST BE IN DECIMAL HOURS" 
: PR INT "::;::;:::::.-..;.....;.. 

"TO CONTINUE PRESS RETURN KEY";A$ 

PR INT : PR INT : PR INT 
"DO YOU WANT TO CALCULATE LMT OR LST ";T$ 



I 
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TIMES (continued)- 



540 

550 

560 

5 70 

580 

590 

600 

610 

62U 

630 

64 

650 

66 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

31 

&2U 

830 

840 

850 

860 

870 

880 

890 

900 

91 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

102 

1030 

104 

1050 

1060 

1070 

1080 



= "LMT" GOTO 
GOTO 570 



570 



INVALID REPLY" 
ENTER THE DATE 
THE YEAR ";Y0$ 
THEN PRINT 
1800 GOTO 650 

Y;" THE CORRECT 



PRINT : 
": PRINT 
Y = VAL 
INVALID 



YEAR" 



THEN 6 50 

THEN PRINT 
"THE MONTH 
> 12 THEN 



GOTO 
";MD$: 
PRINT 
INPUT "THE DAY " ; [} $ : D 
OR > 31 THEN PRINT 
2 AND D > 29 THEN PRINT 
: PRINT 

"WANT TO SEE LOCATION 
= "Y" THEN 750 
- "N" THEN 790 
INVALID REPLY": PRINT : GOTO 
LOCATION CONDITIONS ARE..." 



PRINT ; IF T$ 
IF T$ - "LST" 

PRINT 

PRINT 
INPUT 

I F Y ^ 

IF Y > 

PRINT "IS " 

IN POT r$ 

IF Y$ = "Y" 

IF Y$ - "N" 

PRINT : INPUT 

IF M = OR M 

PRINT 

IF D = 

IF M = 

PRINT 

INPUT 

I F A$ 

IF AS 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT "DO 
IF A5$ = ' 
FLG = 
G0SU8 1650 
IF T$ = "LST 
U$ = "LST" 
GOSUB 1900 

INPUT "SPECIFY NUMBER OF 
PRINT : INPUT "AND TIME 
HOME 

REM CALCS FOR DAYS FROM EPOCH 
EP = 722895: GOSUB 1950:0E = DG 
REM CALC AND PRINT TIME TABLE 
PRINT TABC S)TS,-" TIME(S) 
TC = .065753 
PRINT "DATE "Y;" ";M;" ";D 

"LOCATION ";L$;" ZONE ";ZN 
"FOR LONGITUDE ";L0 
"INTERVAL FOR TIME CALCS 



GOTO 530 



CYD$> 
REPLY" 



PRINT 



GOTO 580 



570 

M ^ VAL CMOS) 
"INVALID REPLY" : 
= VAL CDDS) 
"INVALID REPLY": 
"INVALID REPLY" 



CONDITIONS? ";A$ 



PRINT 



PRINT 
PRINT 



GOTO 650 



GOTO 670 
GOTO 670 



LOCATION NAME, 
TIME ZONE .... 
LONGITUDE , 



;L$ 
;ZN 
;L0 



YOU WANT TO 
Y" THEN FLG 



CHANGE THEM " 
^ 1 : GOTO 270 



710 



; A5$ 



THEN US = "LMT": GOTO 860 



CALCULATIONS ' 
INTERVALS ";IN 



ND 



DE 



;N0 



EP 



REQUESTED"; PRINT 



DEC HRS 



";U$;" 
HR/RI/SE 



PRINT 
PR INT 
PRINT 
PRINT 

PRINT 

PR INT 

PRINT "-;-:-:-:-:_._.-, 

FOR K = 1 TO NO ' " ' ' 
HI = INT (T1):M1 = inT 
SI = INT CC( (T1 - HI) * 

GOSUB 1230 

IF INT CT2) > 24 THEN T2 = 
H2 - INT (T2) :M2 = INT 



LGC / 15 



";IN;" HRS" 



DEC HRS 



";T$ 
HR/MI/SE' 



((T1 
100) 



T2 



C (T2 



HI) 
HI) 



- 24: 
H2) * 



100) 
100) 



GOTO 
100) 



1080 



PROGRAM 3: TIMES 25 



TIMES (continued)- 



1090 S2 = INT C(({T2 - H2) * TOO) - M2) * 100) 
1100 HR2 . INT (TE):MJ2 = az ~ INT (T2), * 60 

(M12)) * 60:SE2 = INT (SE2) 
GOSUB 2050 
M 1 $ = S T R $ 
S1$ 

STR$ 
S2J 
TAB ( 



1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

12 90 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

U20 

U30 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 



CM12 - INT 
INT (IVIJ2): 
STR$ (HI ) : 

H 1$ + p $ + 
STR$ (H2) 

H2$ + PJ + 



M1$ + 
M2$ = 
M2S + 



CMI) :S1$ = STR$ (31) :P$ 
{R2) :S2$ = STR$ 



K; TAB( 5);HA$; 



CS2) 
14)RR;"/";IM;"/";ES; 



SE2 = 
M12 = 
HU = 
HAS = 
H2$ = 
HBS = 
PRINT 

t7!'t1 I'in "^'^^^' ''^' 32>HR2;V":-Mli;"/'';iE2 

IF T1 > 

NEXT K 

GOTO 1450 

REM PARAMETERS FOR TIME CALCS 

REM GMST AT EPOCH 1979 MARCH 22 
GC = 11 ,927485 

REM DA ILY RATE OF 
TC = .065711 

IF T$ = "LMT" THEN 



24 THEN T1 = T1 - 24:ND = nD + 1: GOTO 1200 



CHANGE OF GMST 



REM CONVERSION TO 
T2 = TC * ND + GC + 

REM CONVERSION FOR 
T2 = T2 + (.0656667 

IF T2 > 24 THEN T2 



■ 24 THEN 
THEN T2 : 



T2 = 
T2 ■ 



IF T2 

IF T2 

RETURN 

REM CONVERSION TO 
T2 = T1 - (TC * ND 

REM CONVERSION TO 
T2 = T2 - (.0656667 

IF TZ < THEN T2 

IF T2 > 24 THEN T2 = T2 
T2 = T2 - (T2 / 24 * TO 



1370 

LST 

C( (2N + T1) / 243 

NON MID TIME ZONE 
* LGC) 
= T2 - 24: GOTO 1330 



TC) 



T1 



T2 + 24: GOTO 1340 
24 



24 * 
ZONE 



TC) 



LMT 

GO - (ZN / 
NON MID TIME 
* LGC) 

T2 + 24 : GOTO 141 
24: GOTO 1420 



RETURN 

PR INT 

INPUT 

HOME : 

IF AS 

IF AS 
HIS = " 
T1 - 0:T2 = 

HOME 

PRINT 

INPUT 

IF A J 



DO YOU WANT MORE CALCULATIONS "-AS 
PRINT : PRINT : PRINT 
"N" THEN GOTO 1630 



> "Y' 
MIS = 




THEN PRINT "INVALID REPLY' 
"':S1$ = "":HAS = "":H2S = ' 



PR INT 
rM2$ = 



GOTO 
' :S2$ 



1460 



:HB$ = 



1560 


IF AS 


1570 


IF AS 


1580 


HOME : 


1590 


INPUT 


1600 


IF AS = 


1610 


IF AS ^ 


1620 


PRINT 


1630 


HOME 



PR INT 
"DO YOU 
AS 

= "N" AND TJ = 
= "N" AND TS = 
< > "Y" THEN 

PRINT : PRINT 
"DO YOU WANT TO 
= "N" THEN ZN = 



> "Y" 
ZN = 2 : 



PRINT : PRINT 
STILL WANT TO CALCULATE ";T$ 



"LST" THEN T$ = "LMT" 
"LMT" THEN TS = "LST" 
PRINT "INVALID REPLY" 
: PRINT 

CHANGE DATE ";A$ 

Z: GOTO 700 



GOTO 
GOTO 
PR INT 



1580 
1580 



THEN 
GOTO 



PRINT 
570 



INVALID REPLY' 



PR INT 



GOTO 1530 



GOTO 1590 



I 
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TIMES (continuf^d) 


1640 


END 




1650 


HOME : PRINT : PRINT : PRINT 




1660 


PRINT "DO YOU WANT INPUT IN DEC. HRS CD" 




1670 


PRINT " OR IN HRS MIN SEC C2)" 




1680 


PRINT : PRINT 




1690 


PRINT TABC 10)" ";: INPUT PT$ 




1700 


PT = VAL (PTS) : PRINT : PRINT 




1710 


IF PT = 1 THEN GOTO 1750 




1720 


IF PT = 2 THEN GOTO 1820 




1730 


PRINT "INVALID REPLY": PRINT : GOTO 1650 




1740 


IF T$ = "LMT" THEN TS = "LST" 




1750 


PRINT '■ WHAT IS THE INPUT TIME" 




1760 


PRINT " HR.XXXX (24-HR CLOCK)" 




1770 


PRINT : PRINT 




1780 


PRINT " "; : INPUT T1: PRINT 




1 790 


IF T1 > 23.9999 THEN PRINT : PRINT '"INVALID ENTRY": GOTO 1780 




1800 


PRINT : PRINT : PRINT 




1810 


GOTO 1890 




1S20 


PRINT " WHAT IS THE INPUT TIME" 




1830 


PRINT " HR, MIN, SEC <24-HR CLOCK)" 




1840 


PRINT : PRINT 




1850 


PRINT " ";; INPUT HR,MI,SE 




1860 


PRINT : PRINT : PRINT 




1870 


IF HR > 23 OR MI > 59 OR SE > 59.99 THEN PRINT "INVALID ENTRY"- 
PRINT : GOTO 1850 




1880 


T1 - HR + MI / 60 + SE / 3600 




1890 


RETURN 




1900 


LGC={2N*75)-LO 




1910 


IF LGC < THEN GOTO 1930 




1920 


ZN = ZN + ABS (LGC / 15): GOTO 1940 




1930 


ZN=2N+LGC/15 




1940 


RETURN 




1950 


REM CALC GREGORIAN DAYS TO DATE REQUESTED 




1960 


IF M > =3 GOTO 2020 




1970 


REM CALCS FOR JAN AND FEB 




1980 


DG = 365 * Y + D 




1990 


DG = DG + (CM - 1) * 31) + INT (CY - 1) / 4) 
- INT ((.75) * INT (CY - 1) / 100 + 1)) 




2000 


RETURN 




2010 


REM CALCS FOR MAR THRU DEC 




2020 


DG = 365 * Y + D + ((M - 1) * 31) - INT CM * .4 + 2.3) 




2030 


DG = DG + INT (Y / 4) - INT C(.75) * INT C(Y / 100) + 1)) 




2040 


RETURN 




2050 


REM SUB FOR PRINTING HR,MI,SE 




2060 


RR = INT (T1) 




2070 


IM - (71 - INT CTD) * 60:ES = (IM - INT (IM)) * 60 




2080 


GS = INT CES) :IM = INT CIM) 




2090 


RETURN 





r 







""'"^ 



Fboto Credit: NAiA/Ames 

Until recently, astronomers had to be content with 
looking at the other worlds in our universe through 
Earth's atmosphere. With the advent of the space 
shuttle, a new breed of telescopes and other sophisti- 
cated instruments of observation will be placed into 
space and enable us to look much farther afield and 



back into time. This drawing shows the new infrared 
space telescope that will be put into operation by the 
space shuttle. It will penetrate the dust of space to 
enormous distances, almost to the edge of the 
knowable universe. 
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Program 4: JULDY 



Calendar Date to Julian Day 

Many astronomical events are referred to by their Julian day which 
measures an arbitrary time period starting from 1 January 4713 B c , the 

rstday bemgJuiandayO. Julian daydoes not refertothejullancalendar 
it IS a method of counting days that was introduced In 1582 by a math^ 
ematiaan named Scaliger. The name was derived from Scaliger's father 

Julius Use ofthisdaynumberbyastronomersavoidsconfusionthatmighi 
arise from the use of different calendars at different times and places The 
Julian day begins at noon, 1 2 hours later than our calendar day 

This program provides the Julian day for any Gregorian calendar dav 
between 1 100 and 2200. The program takes the Julian day for the beginning 
of he year 1900 and calculates Gregorian days from thit date to the d" e 
selected. It then either adds or subtracts, as appropriate, the number of 
Gregorian days to or from the Julian day at the epoch 1 900. The program 
can be modified easily to apply to other centuries also. This program can 
be merged with CDATE, its complement. See Program 5 for instructions 

The listing of the JULDY program follows. 



CELESTIAL BASIC 



YEAR J982 
MONTH 6 
DAY i 



JULIAN DAY IS 2445122 



DO YOU WANT ANOTHER DATE Y/N 



A typical display generated bythejULDY program 



Figure 4. T 



PROGRAM 4: JULDY 3T 



JULDY 



20 

30 

40 

5U 

60 

70 

80 

90 

100 

1 10 

120 

130 

uo 

1 50 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

3S0 

390 

400 

410 

420 

430 

440 

450 

460 

4 70 

480 

490 

500 

510 

520 

530 

540 



HOME 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PRINT 
PRIMT 
FOR K 
HOME : 
INPUT 
PRINT 
IF Y1 
y = Y1 
INPUT 
PRIM 
INPUT 
PR INT 
in2 ^ Ml 
IF M2 



PRINT 



JULIAN DAV 



PR INT 
TABC 5)"- 
TAB( 5)"I 
TAB( 5)"- 

PRINT ; PRINT 
TABC 103"AN ASTRONOMY PROSRAM" 

PRINT TAB( 9)"BY ERIC BURGESS 
: PRINT : PRINT 

TABC 9)"ALL RIGHTS RESERVED BY" 

TABC 9)"S & T SOFTWARE SERVICE" 
: PRIWT : PRINT 

llll liy^^^ PROGRAM PROVIDES THE JULIAN DAY" 
TABC 53 FOR A CALENDAR DATE 1100 TO 2200" 
- 1 TO 3000: NEXT K 



F . R. A, S, 



PR INT : PRINT 
"YEAR "; Y1 



< THEN 
- 1 900 
"MONTH ";M1 



ri = Y1 



PRINT 



1 00 



M2 = 
M2 = 
M2 ^ 
M2 = 
M2 = 
M2 = 
M2 ^ 
M2 ^ 
M2 = 
M2 = 

■■ D1 

■■ 365 
Y1 > 



"DAY ";D1 

: PRINT : PRINT 

- 1 
= 1 THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 

8 THEN 

9 THEN 

1 THEN 

11 THEN 
DY 

* y + INT CY / 4) 
1999 THEN D4 = D4 - 
INT CD4) + 05 



DY = 

DY = 

OY = 

DY - 

DY = 

DY = 

DY ^ 

DY ^ 

DY = 
DY = 



I F 
IF 
I F 
IF 
I F 
IF 
IF 
I F 
IF 
I F 
D3 
D4 

IF 
D5 = 1 5020 
JD = D5 

IF Y / 4 - INT CY 
JD ^ JD + 2400000 
JD-JD- INTCCY1 
IF Y1 
IF Y1 
PRINT 
PRINT 
INPUT 
IF AS 
IF A$ 
HOME 
END 



31 
59 
90 
1 20 
151 
181 
212 
243 
273 
304 



DY = 334 



^ 4) = AND Ml 



1 900) 

^ J ■ 

= J D ■ 

"; J D 



/ 100) 
CI - 
3 



< 1 583 THEN JD 
> 1 999 THEN JD 
"JULIAN DAY IS 
: PRINT ; PRINT 
"DO YOU WANT ANOTHER 
= "V " THEN 1 70 

< > "N" THEN PRINT "INVALID 



DATE Y/N 



< 3 THEN J D 
INT C CI 585 - 

"; A$ 
RESPONSE" 



n) / 100)) 



PR INT 



GOTO 500 




As man moves out into space it becomes imperative 
that he forget some of the differences that have divided 
people on Earth. Common measurements of time 
and space have to be adapted and used. This was first 
demonstrated in tlie Apollo-Soyuz program, in 



which United States' and Russian spacecraft had to 
be capable of docking and working with one another. 
This picture shows the Soyuz spacecraft of the USSR, 
which docked with an Apoih command module in 
the first international manned space venture. 
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Program 5: CDATE 



Julian Day to Calendar Date. 



This program complements the JULDY program. It provides a 
Gregorian calendar date for any Julian day between 1100 and 2000. 
Again, it is easily modified for application in other centuries. These two 
programs JULDY and CDATE, can be merged into one if you wish, with a 
selection of one or the other at the beginning of the merged program. If 
you intend to do this, you should increase all the line numbers in CDATE 
by 1000 when you key them in so that you can merge the two programs 
later. Then you must add an appropriate selection and branch routine at 
the beginning of JULDY. 

The listing of the CDATE program follows. ". , ■ : VH 



JULIAN DAY 2445J22 



CALENDAR DATE IS J 982 6 1 



DO YOU WANT ANOTHER DATE Y/N? 



This display generated by the CDATE program is the converse of the display in Figure 4. 1. 



Figure 5. 1 
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CDATE 



20 

30 

iO 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 



HOME 
PR INT 
PRIMT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT : 

PRINT 

PR INT 

PRINT 

PRINT 

PR INT 

PRINT 

FOR K 

HOME : 

INPUT 
JD = JB 

PRINT 
ND = JD - 1 5018 
Y1 - ND / 365.25 



PRINT : PRINT 
TABC 5)" 

TAB( 5)"I JULIAN DAY TO CALENDAR DATE I'' 
TABC 5)" " 

: PR INT : PRINT 
TABC 10)"AN ASTRONOMY PROGRAM" 
: PRINT TABC 9)"BY ERIC BURGESS F.R.A.S." 
: PR INT : PR INT 
TABC 9)"ALL RIGHTS RESERVED BY" 
TABC 9)"SST SOFTWARE SERVICE" 
: PRINT : PRINT 
"THIS PROGRAM PROVIDES THE CALENDAR DATE" 

TABC 2)"F0R A JULIAN DAY BETWEEN 1100-2000" 
= 1 TO 2000: NEXT K 
: PRINT : PRINT : PRINT : PRINT 



"JULIAN DAY 
- 2400000 



: J D 



\ 



250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

38 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 
520 



Y = 
IF 
LY 

D = 
IF 

D ^ 
IF 

D = 
IF 
IF 
IF 



1 900 + 
Y / 4 - 
= 1 

365.25 * 
D " INT 
INT CD) 
LY = AND 
D 
Y 



INT CYl) 



INT CY / 4) 



AND Y / 100 



INT CY / 100) < > THEN 



CY 1 
CD) 



INT CYl)) 
5 THEN D 



M < 



IF 

IF 
IF 
IF 

IF 

IF 

IF 

IF 

I F 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

M = 

IF 

IF 

IF 



D - 
D - 
D - 
D - 
D - 
D - 
D - 
D - 
D • 
D - 
D ■ 
D ■ 
LY 
LV 



3 THEN D = D 
INT CCY - 2000) / 100) 
1 583 THEN D = D - CI + 
31 < THEN M ^ 1 : D ^ D 
59 < THEN M ^ 2: D = D 
90 < THEN M ^ 3: D = D 



120 

151 

181 

212 

243 

273 

304 

334 

365 
- 1 AND 
= 1 AND 



THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
THEN M 
1 > 2 THEN 



INT CCY - 
GOTO 430 

- 31 : GOTO 

- 59: GOTO 
90 
120: 
1 51 : 
181 : 
212: 
243: 

273 
■ 304 
• 334 



1500) / 100)) 

430 
430 
GOTO 430 
GOTO 430 
GOTO 430 
GOTO 430 
GOTO 430 
GOTO 430 
GOTO 430 
GOTO 430 



M > 2 THEN D = 



D = 

D < 

D < 

D < 

D < 

D < 

D = 
D 



> 1 THEN GOTO 510 
c 1 AND LY = 1 AND M = 
c 1 AND LY = AND M = 

< 1 AND M - 1 THEN D = 

< 1 AND M=2 0RM=4 0RM= 
- 1 ; GOTO 51 

< 1 THEN D = 3 : M ^ M - 1 : ;. 
^ 365 THEN D = 31 ;M = 12 
= 366 THEN D = 1 :M = 1 : Y 



3 THEN 
3 THEN 
31 :M = 



= Y 



D = 
D = 
12: Y 
6 OR 



29:M 
28:M 



M = 9 



2: 
2: 
1 : 
OR 



GOTO 510 
GOTO 510 
GOTO 510 
M = 11 THEN D 
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CDATE (continued)- 



530 


PRIMT 


540 


PRINT 


550 


IF Y 


560 


PRINT 


570 


PRINT 


580 


PRINT 


590 


PRINT 


600 


PRINT 


610 


INPUT 


620 


IF AS 


630 


IF A$ 




GOTO 


6A0 


HOME 


650 


END 



PR INT : PR INT 
CALENDAR DATE IS " ; Y ; " 
> 1582 THEN GOTO 600 



";D 



"(NOTE: IN 1582 DATES BEFORE OCT 
"RUST BE DECREASED BY 10 DAYS" 
"TO MATCH THE JULIAN CALENDAR)" 
: PR INT : PRINT 

"DO YOU WANT ANOTHER DATE Y/N"? 
= "Y" THEN LY = 0:Y = 0:D = 0:M 
< > "N" THEN PRINT " 

etc 



15" 



"; A J 

= 0: GOTO 170 

INVALID RESPONSE" 



PR INT 




Photo Credit: NA^A/jobmon 



This picture portrays the American and Russian 
spacecraft in orbit around Earth. During their voyage 
the crews passed freely from one spacecraft to the 
other, unhindered by artificial national boundaries, 



boundaries that are invisible when one looks at Earth 
from space. There were high hopes that this coopera- 
tion in space would be the beginning of a new epoch 
in the history of mankind. 
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Program B: EPOCH 



Updating Star Coordinates. 



Earth acts like a wobbling gyroscope or a spinning top, and over a 
period of some 26,000 years the axis of spin moves to point around a circle 
in the heavens. At present the north axis points nearly toward the star 
Polaris in Ursa Minor, which is our pole star. But 12,000 years ago it 
pointedtowardthebrightstarVegaintheconstellationLyra.Atthetimeof 
ancient Egypt, the pole star was a star in the constellation of Draco. 

Because Earth wobbles on its axis, there are changes from year to year 
in the positions of all stars relative to the right ascension and declination 
grid (see Program 3 for a discussion of right ascension and declination). 
Right ascensions and declinations are listed in nebula and star tables for a 
given epoch, say 1950. If you want to find a faint stellar object by settingto 
the circles of an equatorially mounted telescope, you will need to update 
positions to the current epoch of observation. This program does this for 
you with sufficient accuracy to position the stellar object within the field of 
view of a typical finder telescope (see Figure 6.1). 

You must input the epoch of the star table you are using, your present 
epoch, and then each right ascension and declination you need updated. 
The program provides the updated values by computing the following 
equations. 

The change in right ascension is given by: 

W = .0042 X r X [X + (Z X sin R^ X tan D,)] 

and the change in declination is given by: 

D = .00028 X 7 X y X cos R, 

where R^ is right ascension at epoch, D, is declination at epoch, and T is 
the time in years from the first epoch. X, Y, and Z are determined from the 
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time between the epochs as follows: 

X= 3.07234 + (.00186 X Tj) 
Y = 20.0468 - {.0085 X T-,) 
Z = y/15 



where 



T, = 



_ [(Yi + Y;)/2] - 1900 



100 



where V, is the first epoch year and Y^ is the second epoch year. 
The listing of the EPOCH program follows. 



INPUT R.ft. AT EPOCH 1356 
IHPUT DEC. AT EPOCH 1950 



AT EPOCH 1982 



RIGHT ASCENSION IS 

OR 



DECLINATION IS . . . 
OR . . . 



ANOTHER CONUERSION? Y/N 



14.5 
5.85 



14.52 HRS 

14.31.36 

HR.MI.SE 



5.707 DEG 

5.42.27 

HR.Ml.SE 



The program EPOCH updates star coordinates to allow for the precession of ttie equinox. 
This is a typical display generated by the program. 

Figure 6. T ■ 
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EPOCH 



10 CLEAR 

20 HOME : PRINT : PRINT 

50 DEF FN RAD(X) = X / 57.29878 

40 PRINT : PRINT : PRINT 

50 PRINT TABC 10)" " 

60 PRINT TABC 10)"I EPOCH I" 

70 PRINT TAB( 10)" " 

SO PRINT : PRINT 

90 PRINT TABC 9)"AN ASTRONOMY PROGRAM" 

100 PRINT 

110 PRINT TABC 7)"BY ERIC BURGESS F.R.A.S, 

120 PRINT : PRINT 

130 PRINT TABC 8) "ALL RIGHTS RESERVED BY" 

140 PRINT TABC S)"S & T SOFTWARE SERVICE" 

150 PRINT 

160 FOR J 

170 HOME 

180 PRINT 

19 PRINT 

200 PRINT 

210 PRINT 

2 20 PRINT 

230 PRINT 

240 FOR J 

250 HOME 

260 PRINT 

270 INPUT 

280 PRINT 

290 INPUT "WHAT IS SECOND EPOCH 

300 T2 = CCY2 + YD / 2 - 19 00) /100 

310 X = 3.07234 + C. 00186 * T2) ' 

320 Y = 20.0468 - C-0085 * T2) 

330 Z = Y / 15 . - , - " 

340 PRINT : PRINT : PRINT 

350 REM CALC DAYS BETWEEN EPOCHS 

360T = Y2-Y1 .',; 

370 PRINT "PICK MODE OF INPUT:" 

380 PRINT : PRINT 

390 PRINT " R.A. IN DECIMAL HRS (1)" 

AOO INPUT " OR IN HR,MI,SE (2) ";RA$ 

41 RA = VAL (RA$) 

420 IF RA ^ OR RA > 2 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 390 

430 PRINT : PRINT 

44 PRINT " DEC. IN DECIMAL DEG. (3)" 

450 INPUT " OR IN DE,MI,SE (4) ";DE$ '■. " : -^ 

460 DE = VAL (DE$) 

470 IF DE < 3 OR DE > 4 THEN PRINT "INVALID RESPONSE": PRINT : GOTO A40 

480 HOME : PRINT : PRINT : PRINT 

490IFRA=2THEN510 

500 PRINT "INPUT R.A. AT EPOCH ";Y1;" ";: INPUT ".. ";R1: GOTO 530 

510 PRINT "INPUT R.A. AT EPOCH ";Y1;: INPUT " .. ";RI,MI,SI 

520 IF DE = 4 THEN 540 

530 PRINT : PRINT "INPUT DEC. AT EPOCH " ; Y 1 ; : INPUT " .. ";D1: GOTO 550 
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■EPOCH (continued) ■ 



5A0 

5 50 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 



AT EPOCH "; Y1 ; ; 
60 
60 



RI 
DC 



M I 
MC 



C2 



';Y2 



PRINT "INPUT DEC. 

IF RA = 2 THEN RI 

IF DE = 4 THEN D1 
RI = RI * 1 5 

PRINT : PRINT 
W = .0042 * T * CX 
R2 = RI + W 
D2 = D1 + .00028 * 

PRINT : PRINT 

PRINT ■• AT EPOCH 

PRINT : PRINT 
R2 = R2 / 1 5 

IF R2 > 24 THEN R2 = rj - 24 

IF R2 < THEN R2 = R2 + 24 
RC - VAL C LEFTS ( STR$ (R2),5)) 

PRINT " RIGHT ASCENSION IS ... " ■ R C ■ " HRS" 
R3$ = STR$ ( INT {R2)) ' ' 

M2 = 60 * (R2 - INT {R2)) 
M2S = STR$ ( INT CM2)) 
52^60*- CM2 - INT (M2) ) 
S2 = INT (S2) 
S2$ = STR$ CS2) 
R4$ ^ R3$ + "," + M2S + ",'■ + S2$ 

OR ";R4$ 

TABC 26)"HR,MI,SE" 
: PRINT 
< - 90 THEN D2 ^ - 90 



INPUT " .. ";DC,MC,SC 
SI / 3 6 00 
SC / 3600 



SIN ( FN RAD(RI)) * TAN C FN RADCD1)))) 
COS ( FN RAD(RI)) 



PRINT 
PRINT 
PR INT 
IF D2 



ABS CD2) - INT ( ABS (D2)> 

F II s on'^T^^ "^ ^ ""^ ^ ^^^^^ ^ ^T"* CD2),6M: GOTO 840 
IF D2 > 90 THEN DD - 90 - (D2 - INT {D2)): GOTO 840 

DD = VAL ( LEFTS ( STR$ (D2),5)) 

PRINT " DECLINATION IS ";DD;" DEG" 

IF D2 < THEN D4 - INT (02) + 1: GOTO 870 

D4 = INT (D2) 



IF D2 < THEN ME = 1 + 60 
HE = 60 * CD2 - INT {D2) ) ■ 
ME = 60 - ME 
ME$ = STR$ < INT (ME)) 



* (D2 - INT (02) ) 
GOTO 900 



GOTO 890 



SE = 6 * (RE - 
SE = INT CSE) 
SE$ = STRJ (SE) 
STRJ (D4) 



INT (ME)) 



ED$ = 
PRINT 
PR INT 
PRINT 



MES 



OR 



TAB( 26)"HR,MI,SE" 
PRINT 

INPUT "ANOTHER CONVERSION? Y/N ' 
IF AS = "Y" THEN HOME : PRINT 
PR INT : PR INT 

INPUT "ANOTHER EPOCH? Y/N ";A$ 
IF A$ ^ "Y" THEN GOTO 250 
HOME 
ENO 



" + SE$ 
";EDS 



; A$ 
PRINT 



GOTO 480 




As more nations achieve (/le capability of developing 
space, large structures will be built in orbit around 
Earth. Huge telescopes, space hotels, solar power sat- 
ellites, space settlements, and space manufacturing 



facilities will become common sights. A new era will 
dawn, and people will begin to move out into the 
unlimited economic commons of the solar system 
and start to reach for the stars. 
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Transits and Elongations of Polaris. 



Our pole star, Polaris, is not exactly at the north pole of the celestial 
sphere, i.e., at 90 degrees north declination. So it oscillates in the course 
of each day and year to the east and west of true north. 

When an equatorial mount of a telescope is set up, the polar axis should 
point to the celestial pole. The exact elevation ofthe pole at any observing 
site can be determined from the elevation of Polaris when it is at east or 
west elongation, and the azimuth of true north can be determined by 
observing Polaris when the star is at upper or lower transit. The elevation 
of the pole is also the latitude of the observer. 

This program determines these times (see Figure 7.1) within ten 
minutes for any date, which is sufficiently accurate to set a polar axis, ex- 
cept for a very large telescope. 

starting from epoch 1980, the program uses the right ascension of 
Polaris, the hour angle, and the sidereal time for a given date to determine 
the local time at which the transits and elongations take place. 

The listing ofthe PSTAR program follows. 
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ON 1982 le 5 LONGITUDE 128 
NEXT WEST ELONGATION WILL BE 7.226 HRS 

OR ? HR 13 MI 

WANT ANOTHER ELONG. OR TRANSIT < Y^N >■ 



hf^uHTrl^ '^^ f''an5/t5 and e/ongaf,on5 of Polaris you can ascertain true north and your 
latitude. This ,s a typical display generated by the PSTAR program. 



Figure 7, 1 
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PSTAR 



10 

20 

50 

40 

50 

60 

70 

80 

90 

100 

1 1 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

2 70 

280 

290 

300 

310 

320 

330 
340 
350 
360 
370 
380 
3 90 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 



PS 



REM 
HOME : 
PR IWT 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
FOR K 
HOME : 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PR INT 
PR INT 
INPUT 
HOME : 
INPUT 
IF Y / 
LY = 1 
PRINT 
INPUT 
D? = 
I F M = 
IF M = 



TAR POSIT IONS ' , ■■ . - < . 

PRINT : PRIM : PRINT : PRINT ' . .'- 

TAB( 8)" '- ' : : . ^ ' ' 

TAB( 8)"I POLARIS I" ■ : ' 

TABC 8)" .. ".,, , 

; PR INT . • ■ ,,,.•■ 

TABC 8)"AN ASTRONOMY PROGRAM" • ..■•.■■ 

TAB( 7)"BY ERIC BURGESS F.R.A.S." 
PR INT , „ . • . 

TABC 8)"ALL RIGHTS RESERVED BY" ...•,• 

TABC 8)"S S T SOFTWARE SERVICE" ' '■ : . 

: PRINT ..■.■■.'..•'•." 

= 5000 TO 1 STEP - 1 : NEXT ■ •..•.■ 

PRINT : PRINT : PRINT . '. ■' ■ /, "-' 

TABC 5)"THIS PROGRAM PROVIDES THE TIMES OF" . ■ 

TABC 10) "ELONGATIONS AND TRANSITS" - 

TABC 10) "OF POLARIS FOR ANY DATE" ? : .'■ ' ^y 

TABC 10)"WITH SUFFICIENT ACCURACY" • v' "^ ' '■; 

T A B C 1 3 > " C W I T H I N 1 D M I N UT E S ) " • . - ' •! • ■ ".■ ■ '': 'r 

TABC 10)"F0R SETTING OR CHECKING": PRINT ' •" :4 \"\ 
TABC 12)"THE ALIGNMENT OF THE": PRINT ■ ..- -.,,;.>• 

TABC 6)"EQUAT0RIAL MOUNT OF A TELESCOPE" ' - -■'-.- / ;} ' - - 
: PR INT : PR INT •- i. / 

"PRESS RETURN WHEN READY";A$ -^ .- . r. ' ... ' ., :.■ .. ■' 

PRINT ; PRINT : PRINT 
"YEAR ";Y 

4 - INT (Y / 4) - AND Y / 100 - INT CY / 100) < > THEN 



IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



'MONTH 



■•M 



PRINT : 
D = D 1 + 
IF LY - 
REM GS 
REM AD 
G = Y - 



2 THEN D2 = 31 

3 THEN D2 = 59 

4 THEN 02 = 90 

5 THEN D2 = 120 

6 THEN D2 = 151 

7 THEN D2 = 181 

8 THEN D2 = 212 

9 THEN D2 ^ 243 

10 THEN D2 = 273 

11 THEN D2 = 304 

12 THEN D2 = 334 
INPUT "DAY ";D1 
D2 

1 AND M > 2 THEN D = + 1 
T AT HR OF EPOCH 1980 
JUST FOR YEAR 
1980 
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■PSTAR (continued) 



530 yc = - .01638889 * G 

540 GST = 6.65422 + YC 

550 REM ADJUST FOR DAILY GAIN OF SID TIME 

560 DG = D * .0657096 

570 GT = GST + DG 

580 IF GT > 24 THEN GT - GT - 24 

590 IF GT < THEN GT = GT + 24 

600 PRINT : INPUT "LONGITUDE ";L0 

61 REM ADJUST ST FOR LONGITUDE 

620 CF = .065556 * LO / 360 

630 REM GET HOUR ANGLE 

640 GT = GT + GT * CF 

650 HA = 2.183333 - GT 

660 IF HA < THEN HA = HA + 24 

670 REM ADJUST FOR DAILY LOSS OF MEAN TIME 

680 MT = HA 

690 QD = 5.98362:QE = 5.933333 

700 QW = 5.933333:QL = 11.967222 

71 HOME : PR INT : PR INT 

PRINT "WHICH ELONGATION OR TRANSIT" 
PR INT 
TABC 4)"WEST ELONGATION NEXT 
TAB{ 4)" PREVIOUS 

TAB( 4)"EAST ELONGATION NEXT (3) 
TABC 4)" PREVIOUS (4) 

TABC 4) "LOWER TRANSIT NEXT C5) 
TABC 4) "UPPER TRANS IT 

PR INT 
SELECT BY NUMBER ";S$ 



720 
730 
740 
750 
760 
770 
780 
790 
800 
810 



PR INT 

PR INT 

PR INT 

PRINT 

PRINT 

PRINT 

PR INT 

PRINT 

PR INT 

INPUT 
820 S = VAL (SJ) 
830 IF S = OR S 

HOME : PRINT 

PR INT : "ON " 

PR INT 



840 
850 
860 
870 



(1 ) 
C2) 



NEXT C6> 



> 6 THEN PRINT 
; PRINT : PRINT 
Y;" ";M;" '-;D1;' 



'INVALID RESPONSE" 
PRINT 
LONGITUDE ";L0 



PR INT 



GOTO 710 



:WN 



HRS" 



GOSUB 1190:WP = IN 



:WP, 



HRS" 



GOSUB 1 1 90: EN 



ON S GOTO 880,920,960,1000,1040,1080 
880 WN = MT + QW:IN = WN: GOSUB 1280: GOSUB 1190:WN = IN 
890 WN = VAL C LEFTS C STRS CWN),5)) 
900 PRINT "NEXT WEST ELONGATION WILL BE 
910 GOSUB 1250: GOTO 1110 

920 WP ^ MT - QL - QE:IN = WP: GOSUB 1280 
930 WP = VAL ( LEFTS C STRS CWP),5)) 
940 PRINT "PREVIOUS WEST ELONGATION WAS 
950 GOSUB 1250: GOTO 1110 

960 EN = MT + QL + QW:IN = EN: GOSUB 1280 
970 EN = VAL C LEFTS C STRJ CEN),5)) 
980 PRINT "NEXT EAST ELONGATION WILL BE 
990 GOSUB 1250: GOTO 1110 
1000 EP = MT - QW:IN = EP: GOSUB 1280: GOSUB 1190:EP = IN 
1010 EP = VAL C LEFTS C STRS CEP), 5)) 

1020 PRINT "PREVIOUS EAST ELONGATION WAS ";EP;" HRS" 
1030 GOSUB 1250: GOTO 1110 

1040 NLT = MT + QL:1N ^ NLT: GOSUB 1280: GOSUB 1190:NLT = IN 
1050 NLT = VAL C LEFTS ( STRS CNLT),5)) 
1060 PRINT "NEXT LOWER TRANSIT WILL BE ";NLT;" HRS" 
1070 GOSUB 1250: GOTO 1110 



IN 



;EN, 



HRS" 



PROGRAM 7: P5TAR 
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1080 
1090 
1100 
1110 
1120 
1130 
11A0 
1 150 
1160 
1170 
1180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 



NUT 

NUT = 
PR INT 
PR JNT 
INPUT 
IF A$ 
PRINT 
INPUT 
IF A$ 
HOME 



= HA:IN ^ NUT: GOSUB 1280: GOSUB 1190:NUT = IN 
VAL ( LEFT? ( STR$ (NUT), 5)) 

"NEXT UPPER TRANSIT WILL BE ";NUT;" HRS": GOSUB 1250 
: PRINT : PRINT 
"WANT ANOTHER ELONG. OR TRANSIT a/N)":AS 



"WANT 
•Y" 



OR TRANSIT (Y/N)";A$ 
PRINT : PRINT : GOTO 720 



"WANT 
= "Y" 



ANOTHER 
THEN 300 



PRINT 
DATE CY/'N)";AS 



GOTO 1310 

REM CONVERT TO HR,MJN,SEC 
IN = IN + IN * .00273043 
HM = INT (IN) 



HM = INT (IN) 

M I = 60 * ( IN - INT (IN) ) 

M2 = INT (Ml) 

RETURN 

PR INT 

PR INT TAB( 2O)"0R 

RETURN 



";HM;" HR ";M2;" MI" 



IF IN > 
IF IN < 
RETURN 
END 



24 THEN IN 
THEN IN 



= IN 

= IN 



- 24 
■ 24 



PART 
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THE MOON HAS ALWAYS beckoned and intrigued mankind; its 
phases and cycles are recorded on bones recovered from the sites of 
prehistoric settlements. The Moon has provided us with light, it has served 
as a timekeeper, and it has been a basis for romantic ideas and flights of 
fanciful fiction. 

With the advent of the computer age and space exploration, the 
Moon has become much less of a mystery to us. The programs in this section 
allow you to determine the phases of the Moon, the dates of lunar 
eclipses, and the position of the Moon relative to the stars for any date. 




Photo Credit: US. Ndva/ Ohseivdlury 



as a fascmatmg world of great craters, mountams, and pk 



lams. 
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Right Ascension and Declination of Moon 
for Any Date 



This program computes approximate right ascension and declination 
of the Moon for any requested date. This data enables you to fix the 
Moon's position relative to the stars and also to determine its rising and 
setting (described in later programs). 

Astronomers in ancient times paid great attention to observing the 
motions of the Moon. Calendars and many religious festivals were based 
on these motions. The Moon's orbit, however, Is difficult to accurately 
predict; its orbit is not circular, and the Moon is actually more strongly 
bound tothe Sun than to Earth. Earth and Moon behave somewhat as two 
planets gyratmg together around the Sun. The Moon is about 226 000 
miles from Earth at perigee and 252,000 miles away at apogee. Moreover 
the positions of apogee and perigee gradually move around Earth The orbit 
IS also inclined to the orbit of Earth around the Sun, so the Moon moves 
above and below the apparent path of the Sun through the stars (called 
the ecliptic). The lunar orbit also wobbles, so that the points where the 
Moon crosses the ecliptic plane (the nodes) also move around Earth In 
addition, there are perturbations due to the bulge of the Earth smaller 
perturbations from the planets, and perturbations from Earth and Moon 
following an elliptical orbit around the Sun. Obviously, the motion of the 
Moon IS complex. Nevertheless, it can be approximated to a level of ac- 
curacy suitable for most observations or for finding the position of the 
Moon among the stars. 

Right ascension is expressed in sidereal hours and is measured 

eastward alongthecelestial equatorfrom the vernalequinox (first point of 
Aries). One sidereal hour is equal to 15 degrees on the celestial sphere 

Celestial objects that are on the meridian (in other words, they culminate) 
at the same time as the vernal equinox have a right ascension of hours 
Those that culminate 1 hour later have a right ascension of 1 hour, and so 
on up to 24 hours when the right ascension becomes zero again' 
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Declination is measured in degrees north ( + ) or south ( — ) of the 
celestial equator. {For a more complete explanation of right ascension 
and declination, see TIMES— Program 3.) 

The program determines the position of Moon in its orbit by counting 
from its position at epoch 1960 (instructions 1010 through 1030) to the 
current date. It eliminates complete revolutions (instructions 1120 
through 1160). It also adjusts for the motion of the nodes and the perigee 
position during the period since or before the epoch (instructions 1080 
through 1 280). Then it adjusts for the eccentricity of the Moon's orbit and 
forthe inclination oftheorbittothe plane ofthe ecliptic (instructions 1290 
and 1300). The program prints out the right ascension and declination and 
repeats for the requested number of intervals (see Figure 8.1). 



JNTERUALS OF 1 DAY£: FOR TIME ZONE 8 

LOCL TIME 22 HR = YR \BB2 MHTH 3 DY 2J 
UNIU TiriE e HR^YR J 982 MNTH 3 DY 22 

RA OF MOON IS 21.44 DECLIHATIOH IS -17. J 



LOCL TIME 22 HR = YR 1982 MNTH 3 DY 22 
UNIU TIME 6 HR:YR 1982 MNTH 3 DY 23 

RA OF MOON IS 22.29 DECLINATIOhf IS -13.6 



LOCL TIME 22 HR = YR 1982 MNTH 3 DY 23 
UHIU TIME 6 HR^YR 1982 MHTH 3 DY 24 

RA OF MOON IS 23.1? DECLINATION IS -9.3? 



PRESS RETURN TO CONTINUE! 



The RADEM program calculates the right ascension and declination ofthe Moon for any date 
and time. It generates the type of display shown here. 



-Figure 8. 1- 



PROGRAM 8: RADEM 53 



The Moon's orbit is perturbed in many ways and other corrections 
can be added to achieve higher orders of accuracy. But for most purposes 
this program provides sufficient accuracy in locating the approximate 
position of the Moon among the stars for any date and time. 

As with earlier programs, for computers other than Apple you may 
need to modify HOME statements to CLS or PRINT CH R$(1 2) statements 
and use the ENTER key instead of the RETURN key. 

If you wish, this program can be merged with RADEC, the program for 

finding right ascensionsand decimations oftheplanets.lfyouintendtodo 
this, you should key in this program using line numbers starting at 2000. 
Then you can use it as a subroutine for RADEC. - ■ ' | 

The listing of the RADEM program follows. ' 
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RADFM- 




20 




AND DEC OF MOON FORANY&ATE 


:>U 


DEF FN 


RAOCX) = .01745328 * CX) '-■ :-■..,■ :--v^ 


40 


HOME : 


PRINT : PRINT : PRINT ; PRINT 


50 


PR INT 


TABC 9)"ASTR0N0MY PROGRAM": PRINT 


60 


PR INT 


TABC 9)" " 


70 


PRINT 


TAB ( 9) "I RADEM I" , , . .; 


SO 


PRINT 
PRINT 


TflHf O"!" " 


90 


InDV. T> ^ — ^ 


100 


PRINT 


TAB( 7)"By ERIC BURGESS F.R.A.S." ~ :: ,• 


110 


PRINT 


: PRINT 


120 


FL = U 




liO 


PRINT 


TABC 7)"ALL RIGHTS RESERVED BY" 


140 


PRINT 


TAB( 7)"S & T SOFTWARE SERVICE" 


150 


PRINT 




160 


PR INT 


TABC 10)"VERS10N 4/82" 


170 


PRINT 


: PRINT : PRINT 


180 


INPOT 


"DO YOO WANT INSTRUCTIONS Y/N ";A$ 


190 


IF A$ 


= "N" THEN HOME : PRINT ; PRINT : GOTO 390 


^00 


IF AS 


< > "Y" THEN PRINT : PRINT "INVALID RESPONSE: GOTO 180 


210 


HOME : 


PRINT : PRINT : PRINT 


220 


PRINT 


"THIS PROGRAM DISPLAYS THE APPROXIMATE" 


2ia 


PRINT 


"RIGHT ASCENSION AND DECLINATION" 


240 


PR INT 


"OF THE MOON FOR A REQUESTED DATE" 


250 


PR XNT 


TAB C 12) "AND T IME" : PRINT 


260 


PRINT 


"FOR A SERIES OF INTERVALS" 


270 


PRINT 


: PRINT 


280 


PRINT 


"ENTER YEAR, MONTH, DAY, TIME ZONE," 


290 


PRINT 


AND LOCAL TIME" 


300 


PRINT 


"ALSO TIME INTERVALS IN DAYS AND THE" 


510 


PRINT 


"NUMBERS OF INTERVALS REQUIRED" 


320 


PR INT 


: PRINT 


yio 


PRINT 


"THE PROGRAM WILL DISPLAY UNIVERSAL TIME" 


340 


PR INT 


"AND THE APPROXIMATE RA AND DECLINATION" 


350 


PRINT 


"FOR EACH DAY AT THE SELECTED INTERVALS" 


360 


PRINT 


: PRINT : PR INT 


370 


INPOT 


"WHEN READY PRESS RETURN" ;A$ 


380 


HOME : 


PRINT : PRINT : PRINT 


i90 


PRINT 


"ENTER THE DATE": PRINT 


400 


INPUT 


"THE YEAR ";YOS:Y = VAL CYD$) 


410 


IF Y = 


THEN PRINT "INVALID RESPONSE"; PRINT : GOTO 400 


420 


IF Y > 


1800 GOTO 480 


430 


PRINT 


"IS ";r;" THE CORRECT YEAR?" 


440 


INPUT 


YS 


450 


IF y$ 


= "Y" THEN 480 


460 


IF Y$ 


< > "N" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 430 


470 


IF Y$ 


= "N" THEN PRINT : GOTO 400 


4S0 


LY = 




490 


IF Y / 
LY = 1 
PRINT 


4- INTCY/4)=0ANDY/10Q- INT (Y/ 100) < >OTHEN 


500 


: INPUT "THE MONTH ";MDS:1V| ^ VAL CMD$) 


510 


IF M ^ 


OR M > 12 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 500 


520 


PRINT 


: INPUT "THE DAY ";DD$:D - VAL (DD$) 


530 


IF D = 


OR > 31 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 520 
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540 
550 

56U 
5^0 
580 
590 
600 
610 
620 

630 

640 
650 

660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
91 
920 
930 
940 
950 
960 

970 

980 

990 

1000 

1010 

1020 

1030 



24: DU 



DU + 1 



IF M - 2 AND > 29 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 520 
^^.':! *^,/ 1 AND M - 2 AND D > 28 THEN PRINT "INVALID RESPONSE": PRINT 

; bO TO 52 

PRINT : INPUT "TIME ZONE " ; T Z , - - 

PRINT : INPUT "TIME HRS ";T1 

REM STOREINITIALDATEANDTIME 
yP = Y :MP = M : DP = D 

DU = D:TU = TZ + T1: IF TU > 24 THEN TU = TU 
DU = DU + TU / 24 

IF (LY = 1 AND M = 2 AND INT (DU) > 29) THEN M = 3:DU = DU - 29- 
GOTO 670 

IF CLY = AND M = 2 AND INT (DU) > 28) THEN M = 3:DU = DU - 28" 

GOTO 670 

IF DU < 31 GOTO 670 

IF (M = 4 OR M = 6 OR M = 9 OR M = 11) THEN M = M + 1 : DU = DU - 30' 
GOTO 670 ,_^ ,„ ^' 

IF INT (DU) > 31 THEN H = M + 1 ; DU = D U - 3 1 

IFM=13THENW=1:Y=y+i '• 

IF F9 = 1 THEN 71 •,-.,— ■,. 

T2 = TU: D2 = DU: Y2 = Y : M2 = M -.■/.■ 
IF FL = 5 THEN GOTO 860 ,.'.'. . *■.: 

PRINT : PRINT : PRINT 

PRINT "SELECT INTERVALS AND HOW MANY" ' 

PRINT "ENTER 1'S IF YOU NEED ONE PLOT ONLY" • 

PRINT "UP TO THREE INTERVALS ARE DISPLAYED" 

PRINT "ON SCREEN BEFORE SCROLLING" ' ' - ' ■ 

PRINT : PRINT 

INPUT "WHAT IS THE TIME INTERVAL (DAYS) ";TI$ 

PRINT ' ' • 

T I = V A L ( TI $ ) ; . . 

IF TI = THEN PRINT "INVALID RESPONSE": PRINT 

INPUT "HOW MANY INTERVALS ";IN$: PRINT 
IN = VAL (INS) 

IF IN = THEN PRINT "INVALID RESPONSE": PRINT 

REM SETS INTERVAL COUNT AT 1 
NC = 1 

REM CALC DAYS FROM EPOCH 1960 11 

IF NC > 1 GOTO 900 

HOME : PRINT 

PRINT "INTERVALS OF ";TI;" DAYS FOR TIME ZONE "-TZ 
DG = 365 * Y + DU + ((M - 1) * 31) ' " 

IF M > =3 GOTO 950 . - '" 

REM CALC IF JAN OR FEB 
DG = DG + INT C<Y - 1) / 4) - ifjT (C.75) * INT CCY - 1) / 100 + 1)) 

GOTO 970 

REM CALC FOR MAR THRU DEC 
DG = DG - INT (M * .4 + 2.3) + INT CY / 4) 

- INT (C.75) * INT (CY / 100) +1)) 
NM = DG - 715875 
NM - NM - . 5 

REM FIND RA AND DEC OF MOON , : 

REM LONG OF MOON 

LZ = 311 . 1687 

LE = 178.699 

LP - 255.7433 



GOTO 770 
GOTO 810 
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-RADEM (continued)— 



1040 

10 5 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1U0 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

UOD 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 
1520 
1530 
1540 
1550 



360: GOTO 1050 



GOTO 1070 



PG = . 111404 * NM + LP 
IFPG< - 360 THEN P6=PG- 
IF PG < THEN PG = PG + 360 
IF PG > 360 THEN pg = PG - 360; 

LMD = LZ + 360 * NM / 27.321582 

PG = LMD - PG 

DR = 6.2886 * SIN f. 01745328 * PG) 

LMD = LMD + OR 
IF LMD < - 3600 THEN LMD = LMD + 3600: GOTO 1120 
IF LMD < - 360 THEN LMD = LMD + 360: GOTO 1130 
IF LMD < THEN LMD = LMD + 360: GOTO 1140 
IF LMD > 3600 THEN LHO = LMD - 3600: GOTO 1150 
IF LMD > 360 THEN LMD = LMD - 360: GOTO 1160 

RM=LMD/15 



■ 24: 
24 



GOTO 1180 



IF RM > 24 THEN RM = RM 

IF RM < THEN RM = RM ■ 
AL = LE - NM * .052954 

IF AL < - 3600 THEN AL = AL + 3600: GOTO 1210 

IF AL < - 360 THEN AL = AL + 360: GOTO 1220 

IF AL < THEN AL = AL + 360: GOTO 1230 

IF AL > 3600 THEN AL = AL -3600: GOTO 1240 

IF AL > 360 THEN AL = AL - 360: 
AL = LMD - AL 

IF AL < THEN AL = AL + 360 

IF AL > 360 THEN AL ^ AL - 360 
HE = 5.1454 * SIN CAL * 3.14159 
DM = HE + 23. 1444 * SIN (LMD 

PR INT 



GOTO 1250 



/ 180) 
3.14159 



/ 1 80) 



RA$ = STR$ (RM):DE$ = STR$ (DM) 
RA$ = LEFT$ (RA$,5):DE$ = LEFTS (DE$,5) 
IF VAL CRAS) < 10 THEN RA$ = LEFTS CRA$,4> 

9 THEN DES = LEFTS (DE$,5) 



GOTO 1370 



VAL (DE$3 < 

oL/^': ^"^^^^ " ""^ '^^^ ^^"^ ^"^ES) > - 10 THEN DES = LEFTS CDE$ 4) 

PRINT "LOCL TIME ■' ; T 1 ; " HR:YR '-YP;" MNTH '-MP;" DY "-DP '''^^'^^ 

PRINT "UNIV TIME "/TU;" HR : YR '■■Y2;" MNTH "■M2-" DY ' 
PRINT ^ ^ ^ ' 



INT (D2) 

PRINT "RA OF MOON IS ";RA$;" DECLINATION IS "-DES 
PRINT " " 

3) =0 THEN INPUT "PRESS RETURN TO C ONT I NUE " ; Z S 



29) 
28) 



THEN M = 3; 
THEN M = 3: 



IF NC / 3 - INT (NC / 

IF NC < IN GOTO 1450 

GOTO 1550 
NC = NC + 1 : D = DP 4 TI 
Y = YP :M ^ MP 

IF CLY = 1 AND M = 2 AND 

IF (LY = AND M = 2 AND 

IF D < 31 GOTO 1530 

IF CM = 4 OR M = 6 OR M = 9 OR M = 11) THEN M 
GOTO 1530 

IF D > 31 THEN M = M + 1 

IF M = 2 THEN GOTO 1470 

IF M = 1 3 THEN M = 1 : Y = 

FL = 5: GOTO 590 
PRINT 



29: 
28; 



GOTO 1530 
GOTO 1530 



1 : D = D 



30; 



D = D - 31 



1 



r 
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-RADEM (con t/nuedi- 



1560 
1570 
1580 
1 590 
1600 
1610 



INPUT 
IF AS 
IF AJ 
FL - 
HOME ; 
END 



"DO YOU WANT ANOTHER DATE Y/N 
^ "H" THEN HOME : GOTO 1610 
< > "Y" THEN PRINT "INVALID 



■A$ 



RESPONSE": PRINT 



GOTO 1560 



PR INT 



PR INT 



GOTO 390 





I - ' * 










Photo Credit: NASA 



Seen from orbit, the surface of the Moon is awe- 
inspiring— a series of vast circular mountain rings, 
great clefts running for hundreds of miles across the 
smooth plains, and innumerable crater pits. Its surface 



has been bombarded from space by countless natural 
projectiles and repeatedly churned into rubble— the 
lunar regolith. This picture shows the crater 
Triesnecker and its associated system of rilles. 



Program 9: ECLIP 



Umbral Lunar Eclipses for Any Year_ 



Umbra! eclipses occur when the Moon passes through the umbra of 
Earth's shadow. The umbra is the central conical portion of Earth's 
shadow, geometrically excluding all light from the Sun. It stretches some 
857,000 miles from Earth, always extending beyond the distance of the 
Moon. However, the inclination of the Moon's orbit relative to Earth's orbit 
usually causes the Moon at full {when such eclipses occur) to be above or 
below Earth's shadow. Underfavorable circumstances, when the Moon is 
at perigee, Earth is at aphelion, and the path of the Moon goes through the 
center of Earth's shadow, a total lunar eclipse can last for two hours. The 
partial phases can extend two more hours on either side of the period of 
totality. (Perigee isthe point nearest Earth in the lunar orbit; aphelion is the 
point farthest from the Sun in Earth's orbit.) 

Even when the Moon passes through the umbra or central portion of 
Earth's shadow, its surface does not become completely dark. This is 
because some sunlight is refracted through Earth's atmosphere and into 
the cone of the umbra. As this refracted light passes through the at- 
mosphere it is reddened— a phenomenon similar to our seeing a red Sun 
at sunrise and sunset— and thereby causes the eclipsed Moon to appear as 
a dark red globe, an awe-inspiring sight in the night sky. 

Lunar eclipses occur in concurrent sets. Each set begins with a partial 
lunar eclipse repeated with increasing magnitude each 1 8-year 1 1 .3-day 
eclipse period. After 1 3 or 14 renewals the eclipse becomes total and repeats 
as total for 11 or 23 times. Then there is another series of partial eclipses 
until the end of the 865.5-year eclipse cycle, which consists of very nearly 
48 saros. A saros (the 18.04-year eclipse period known to the Chaldeans) 
includes on the average 29 lunar eclipses and covers 223 lunations (the 
period of time between two successive new moons, 29.530588 days). 
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This program computes the date of the first umbral eclipse of the 
Moon in any year requested and shows the magnitude of the eclipse, that 
is, the fraction of the Moon's disk covered by the umbral shadow of Earth. 
When this fraction reaches or exceeds 1, the eclipse is totaL Since the 
obscuring effects of Earth's penumbra are barely perceptible, penumbra! 
eclipses are not identified. If there is no umbral eclipse in the year re- 
quested, the program continues until it findsthefirst eclipse in subsequent 
years. You can also ask the computer to display subsequent umbral 
eclipses. If there are no more eclipses in the year requested, the computer 
will search for and display the first umbral eclipse in subsequent years. A 
screen display generated by this program is shown in Figure 9.1 . 




By checking if a full moon occurs close to a node of the Moon 's orbit, the program ECUP 
tells you when eclipses, if any, take place in any year. This is a typical display generated by the 
program. 

Figure 9. 1 . 
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The program checks each full moon from the date requested to find if 
itoccurs within the required distance from a node, and cycles until itfinds 
the Julian day of the first full moon occurring close to the node. It 
calculates the amount of the Moon's disk covered by Earth's shadow, and 
determines the date on which the eclipse occurs by converting Julian day 
to calendar date. 

The only modifications to the program required by computers other 
than the Apple II are to lines 10, 70, 190, 420, 850, and 870. In these lines 
HOME to clear the screen will need to be changed to your own computer's 
instruction to clear the screen. 

The listing for the ECLIP program follows. 
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ECLIP 



10 

20 

30 

AO 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

1 70 
180 
190 
200 
210 

2 20 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
5 00 
510 
520 
530 



HOME : 
PR JNT 
PR INT 
PR INT 
PR INT 
FOR KZ 
HOME 
PR IfJT 



PRINT : PRINT : PRINT : PRINT 
TABC 10)"LUNAR UMBRAL ECLIPSES" 
TABC 10)"BY ERIC BURGESS F.R.A.S." 

PRINT TABC 10)"ALL RIGHTS RESERVED 
TABC 10)"S 8 T SOFTWARE SERVICES" 
= 2000 TO 1 STEP - 1 : NEXT KZ 



BY" 



PR INT 



PRINT 



PR INT 



REM ECLIPSE 



PR INT 
PR INT 
PR INT 
FOR J 5 
PRINT : 
PRINT " 
PR INT 
INPUT " 
FL = 
HOME : 
PRINT " 
Z = Y - 
Z D = C Z 
A ^ INT 



5)"THIS PROGRAM GIVES MAGNITUDE" 
5)"AND DATE OF LUNAR UMBRAL ECLIPSES" 
AT ANY YEAR REQUESTED" 



TABC 

TABC 

TABC 5r'STARTIN6 

= 2000 TO 1 STEP 

PR INT 
PLEASE STATE THE" 

YEAR TO START "; 



1 : NEXT J 5 



PRINT : 
RUNNING 
1900 

* 12.368267) 
( ZD) 



PRINT : PR INT : 
... PLEASE WAIT" 



PRINT 



DBF 



FN RADCX) = 
A + 1 

29.1053561 * 
B + 13.7774 
C25. 81691806 
670565 * 



X * 3.141 592 / 180 



C30. 
E - 
F + 
G + 
H + 
S IN 



C S IN 
C SIN 
C SIN 

C S IN 

C FN 



A) + 138.94 
* A) + 216.6378 
C FN RAD CD ) ) ) * .412 
( FN RADC2 * D))) / 8.g 
C FN RAD < C) ) ) * 2 . 2265 
C FN RAD C2 * E ) ) ) * .13 



0. 
I 
W 
W 

w 

K 

FL 



7128 - C 
* 1 ~ J 
< THEN 
> THEN 



RAD (I) ) 
COS C FN RAD CD ) ) ) / 36 



W = 
W = 



( COS C 
THEN 
1 GOTO 
HOME : PR INT : 
PRINT : PRINT "- 
PRINT "MAGNITUDE 
K ^ VAL C LEFTS 
PRINT K 
PR INT 



FN 



GOTO 
430 
PR INT 



1 .84769 
1 .84769 
RAD CD ) > ) 
250 



W * 
■ U * 
/ 30 



8216: 
8216 



PR INT 



PR INT 



GOTO 390 



PR INT 



OF ECLIPSE IS 
C STR$ CK),4)> 



L = 
L = 
L. = 
L = 
IF 
L2 = 



2415036.025 
L - (.406 * 
L + C S IN C 
INT (L - C 
L < 2299161 



+ (A * 29.53058868) 

SIN ( FN RAD (D) ) ) + 
FN RAD (2 * D ) ) ) / 62 
SIN C FN RADC2 * E)) ) 
THEN GOTO 580 



C .174 



/ 97) 



SIN ( FN RAO CO ) ) 



INT (C 2299161 



1867216.25) / 36525.25) 



T 
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BCllP (continued)' 



540 


L = 


L2 + 


550 


M = 


INT 


560 


L = 


L - M 


570 


L = 


L + 1 


580 


N = 


L - 1 


590 


^ 


INT 


600 


P = 


INT 


610 


Q = 


INT 


620 


R = 


CCN - 


630 


IF 


Q < 1 


640 


S = 


Q - 1 


650 


S - 


Q - 1 


660 


T = 


S 


670 


T2 : 


: T + 


680 


IF 


SQR 


690 


= 


+ 1 


700 


U = 


+ T 


710 


R = 


3 + R 


72 


IF 


T = 2 


730 


IF 


T = 3 


740 


PRINT "D 


750 


PRINT 


760 


PRINT " 


770 


PRINT " 


780 


PRINT " 


790 


PRINT : 


800 


INPUT " 


810 


PRINT : 


820 


IF 


A$ = 


830 


IF 


AJ <: 


840 


INPUT " 


850 


IF 


A$ - 


860 


IF 


A$ < 


870 


HOME 


880 


END 



(L2 / 4) 



720995 

C(N - 122.1) / 365.25) 

CO * 365.25) 

(CN - P) / 3 0.6001 ) 

P) - INT (Q * 30.6001)) / 10000 
3.7774 THEN GOTO 650 
2 - 1 : GOTO 660 



(5) < S GOTO 700 



* 10000 

AND R > 28 THEN T = T + 1:R = R - 28 
AND R > 31 THEN T = T + 1:R = R - 31 
ATE OF ECLIPSE IS . . ." 

"':. YEAR ";0 

MONTH ";T . . 
D A y " ; R 
PRINT 

DO YOU WANT THE NEXT ECLIPSE ";A$ 
PRINT 
"Y" THEN PRINT :FL = 1: GOTO 250 

> "N" THEN PRINT "INVALID REPLY": PRINT : GOTO 800 

DO YOU WANT ANOTHER YEAR ";A$ 
"Y" THEN HOME : PRINT : PRINT : GOTO 170 

> "N" THEN PRINT "INVALID REPLY": PRINT : GOTO 840 




By all terrestrial standards, the Moon Is an in- 
hospitable world. Black skies are dominated on the 
Earth-facing hemisphere by the huge Earth. The ter- 
rain Is relatively smooth, but broken by scattered 



rocks. Hills are rounded by their bombardment from 
space. This photo shows one of the Apollo astronauts 
making scientific measurements near a huge boulder 
in the Taurus-Littrow region of the Moon. 
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Approximate Phase of Moon for Any Date. 



In many religious and calendrical systems the time of the new moon is 
most important, since from it the beginning of each lunar cycle can be 
established. Actually, the new moon cannot be observed— it occurs when 
the Moon is between Earth and the Sun. The time of the new moon has to 
be computed backward from the first observation of the extremely thin 
crescent {often referred to as the new moon) following the astronomical 
new moon. 

The period from one new moon to the next is known as the synodic 
month. It is 29.530589 days in length and is divided into quarters— new 
moon, first quarter, full moon, and last quarter. The sidereal month is the 
passage of the Moon arou nd its orbit to the right ascension of a certain fixed 
star. This is 27.321662 days. There are two other important lunar cycles. 
One is the draconic month, which is the period from node to node of the 
lunar orbit. Each 27.212221 days the Moon crosses Earth's orbital plane 
from south to north, and that crossing defines the draconic month. The 
period from perigee (closest approach to Earth) to perigee is the anomal- 
istic month (27.554550 days), and it is used to determine the distance of 
the Moon from Earth. These various numbers are used in several of the 
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programs in this book, adjusted winere necessary to agree with epochs 
relating to the calculations. 

Phases of the Moon were very important to people before the advent 
of street lighting. Without the light of the Moon, activities outdoors at 
night were greatly curtailed. The waxing moon is that period between 
new moon and full moon when more and moreof the hemisphere of the 
Moon facing Earth is illuminated by the Sun. From a thin crescent, the 
Moon day by day expands to a half moon, then to a gibbous moon, and 
finally to a full moon rising opposite to the setting sun. The half moon il- 
luminates the evening sky, the full moon brightens most of the night, and 
the waning half moon lights up the predawn hours. 

Many artists hopelessly confuse the Moon's phases in their illustra- 
tions, indicating a late night scene by a crescent moon. If the crescent- 
shaped moon is regarded as a bow, an arrow placed in that bow ready to 
be shot always points toward the Sun. A thin crescent moon can appear 
only for a short period after sunset or before sunrise. 

Because of the inclination of the ecliptic to Earth's equator, different 
phases of the Moon are more readily observed at certain seasons. The 
new crescent is best observed in the spring months because it sets well 
after the Sun compared with in the fall. The waningcrescent is best placed 
for observation in fall, when it appears high in the sky before sunrise. In 
summer the full moon is low in the southern sky, while in winter it rides 
high. In fall, during the period around the full moon, the Moon moves 
alongthe ecliptic higher into the sky each evening, so moonrise occurs only 
a few minutes later each night. For nearly a week, an almost full moon 
rises shortly after sunset each day. People referred to this as the period of 
the harvest moon, because light is provided for harvesting after the Sun 
has set. You can visualize these effects by running SKYSET (Program 1 6). 

The four lunar phases are separated by about 7.4 days on the average. 
Because the Moon's orbit is elliptical, the Moon does not travel at a con- 
stant speed around its orbit, so the interval between the phases varies at 
different lunations. 

This program calculates the date of each new moon and then inter- 
polates for the other phases. The date of the new moon is accurate within 
one day; the others are approximate only. Starting at instruction 380, the 
program changesthe calendar date to a day number and then proceeds to 
calculate the next new moon from the date requested, making use of the 
synodic month (period from one new moon to the next). It derives the 
calendar date for this new moon and loops to calculate the calendar date 
for the next new moon. The program then interpolates for the other 
phases. It repeats this sequence for the number of months requested. 
Subroutines take care of month ends and year ends and the effects of leap 
years on the derived dates. 
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The program will list phases for three months after a year and month 
requested. Ifthe first new moon istowardtheend of the month requested, 
you will need to ask for a month earlier to obtain all the phases within the 
requested month. An example of the display provided by this program is 
shown in Figure 10.1. 

The program is useful if you wish to find out quickly whether or not 
any special astronomical observations on a given date are going to be 
troubled by excessive moonlight— for example, observation of a meteor 
shower in the early morning hours. For such observation you would like 
to have the Moon either afinewaningcrescent or between the new moon 
and first quarter. You might also want to know whether the Moon is going 
to be bright before you decide to take a telescope to the top of a mountain 
to photograph some faint objects in the sky. 

The listing for the PHASE program follows. 
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MOON'S PHASES ARE . . 

HEM MOON 1982 

-IRST QUARTER > 1982 

aiLL MOON <Ci> 1982 

-AST QUARTER < 1982 

HEH MOON ^ 1982 
-IRST QUARTER > 1982 
-ULL MOON <0> 1982 
-AST QUARTER < 1982 
2 

HEH MOON 1982 

FIRST QUARTER > 1982 

FULL MOON C0> 1982 

LAST QUARTER < 1982 
3 

DO YOU WANT MORE I 



MAY 22 
MAY 30 
JUN 6 
JUN 13 



JUN 2e 

JUN 28 

JUL 4 

JUL 11 



JUL 20 
JUL 28 
AUG 4 
AUG 11 



The PHASE program provides a table showing the approximate dates of the phases of the 
Moon for any period of up to three months. 

Figure 70.7 
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PHASE 



10 

20 

30 

40 

50 

60 

70 

80 

9 

100 

1 10 

120 

130 

no 

150 
160 
170 
180 

1 90 
200 
210 
220 
250 
240 
250 
260 

2 70 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4S0 
490 
500 
510 
520 
530 



REM 

DE F 

HOME 

PR IN 

PR IN 

PR IN 

PR IN 

PR IN 

PR IN 

PR I 

PR I 

PR I 

FOR 

HOM 

PRI 

PR I 

PR I 

PRI 

PR I 

PR I 

PR I 

PR I 

IF 

PR I 

IF 

PR I 

N = 

IF 

IF 

HOM 

PR I 

MS ^ 

IN = 

IF 
YP = 
TY ^ 

IF 
P2 = 
PI = 
P3 = 
P4 = 

IF 
PI = 
P5 = 

IF 
PO - 
P5 = 
P6 = 
Q = 
Q1 = 
P7 ^ 
P5 - 
P7 = 



LU 

FN 

T : 

T 

T 

T 

T : 

T 

NT 

NT 

NT 

J 
E : 
NT 
NT 
NT 
NT 
NT 
NT 
NT 
NT 
y = 
NT 
M = 
NT 

VA 
N > 
N = 
E : 
NT 

M 


XP 

Y 

Y 
158 

M 

Y 

D 

M 

SQ 

PI 
I 
FL 
I 

P5 

.0 
CP6 

1 

Q1 

(P 

P7 



WAR PHA 

RAD{X> 

PRINT : 

PR INT 
TABC 10 
TABC 10 
TAB( 10 

PR INT 

TABC 9) 

: PRINT 

TABC 1 

TAB C 1 

= 3000 

PR INT 

TABC 5 

TABC 5 

TABC 5 

TAB C 5 

TABC 8 

: PRINT 

"START 

: INPUT 

THEN 

: INPUT 

THEN 

: INPUT 

L {N$) 

3 THEN 

THEN 

NS ^ 1 : 

"MOON'S 



SES . . • •• 

= .01745328 * (X) " 

PR INT : PR INT : PR INT 

: PR INT > . 

)'■ .. 

)"I PHASES OF MOON I" 
)■• 

: PRINT 

"BY ERIC BURGESS F.R.A.S." 

0)"ALL RIGHTS RESERVED BY" 

0)"S 8 T SOFTWARE SERVICE" 

TO 1 STEP - 1 : NEXT 

: PR INT : PR INT 

)"THIS PROGRAM PROVIDES DATES FOR" 

)"PHASE5 OF THE MOON STARTING AT" 

)"ANY MONTH OR ANY DATE AND FOR" 

)"A PERIOD OF UP TO THREE MONTHS" 

) " (WITHIN ONE DAY) " 

: PRINT 
DATE REQUIRED" 

"YEAR ";YI:Y = VAL CY$) 
PRINT "INVALID RESPONSE": PRINT 

"MONTH ";M$:M = VAL CMS) 
PRINT "INVALID RESPONSE": PRINT 

"NUMBER OF MONTHS REQUIRED (1 TO 



GOTO 220 



3) 



GOTO 240 
";N$ 



N = 3 

PRINT "INVALID RESPONSE", 
PRINT 
PHASES ARE ... " 



PR INT 



GOTO 260 



1 THEN M 



M + 1 



+ M / 100 

2.10 > T Y THEN FL = 2 



/ 1 00 + / 10000 

R(5)= <P2THEN GOTO 4 40 

- 1:P2 = P2 + 12 
NT (365.25 * PI) + INT ((P2 + 1) * 30.6001) + P3 + 1720995 
= 2 GOTO 480 
NT (PI / 100) 

-P0+2+INT(P0/4) 
33863192 2 

* P5) + .67094 
- (Q - INT (Q)) • - 

/ P6 
5 + P7) * .985600267 

+ (.1743 * ( SIN ( FN RAD(P5 + 73.63)))) 
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PHASE (continued) 




540 


P8 = (13.06499245 * P5) + 271.5 




550 


P7 = P7 


- (.4089 * ( SIN ( FN RAD(P8)))) 




560 


P7 = (( 


SIN { FN RAD(2 * P8))) * .0161) + P7 




570 


P8 = CCP7 - .5) / 10000) + P4 




580 


IF IN 


= THEN P9 = P8 




590 


IF IN 


< > THEN M = M - 1 : GOTO 610 




600 


IN = IN 


+ 1:H = H + 1:P1 = 0:P2 = 0:P3 = 0:P4 = 0: GOTO 360 




610 


Z = P9 


- P8 ... 




620 


Z = Z * 


10000 




630 


Z = ABS (30.6001 * Z) 




640 


PH = Z 


/ 400 




650 


PM = INT (P9 * 100) 




660 


PD = INT ((P9 * 100 - INT CP9 * 100)) * 100) 




670 


IF NS 


= 4 OR NS = 8 THEN PD = PD + 1 




680 


IF PD 


= THEN PM = PM - 1 :PD = 31 




690 


IF PD 


> 31 THEN PD = PD - 31: GOTO 690:PD = PD - 6:PM = PH + 1:Q = 


= 1 


700 


IF PM 


> 12 THEN PH = PM - 12:Y = Y + 1 




710 


IF XP 


= 1 THEN PH = PM - 1 




720 


GOSUB 


1050 




730 


PRINT 






740 


PRINT 


"NEW HOON ";Y;" ";PM$;" ";PD 




750 


IF Q = 


1 THEN PH = PH - 1:Q = 




760 


PD = PD 


+ 1 




770 


IF PM 


= 2 AND PD + PH > 28 THEN PD = PD + 3 




780 


IF PD 


+ PH > 31 THEN PD = PD - 31:PI1 = PM + 1 




790 


IF PH 


> 12 THEN PM=PH-12:Y=Y+1 




800 


IF PH 


- INT (PH) < .5 THEN PH = INT (PH) + 1 




810 


PH = INT (PH) 




820 


GOSUB 


1050 




830 


PRINT 


"FIRST QUARTER ) ";Y;" ";PH$;" ";PD + PH 




840 


IF PM 


= 2 AND PD + 2 * PH > 28 THEN PD = PD + 3 




850 


IF PD 


+ 2 * PH > 31 THEN PD = PD - 31:PM = PM + 1 




860 


IF PH 


> 12 THEN PM = PM - 12:Y = Y + 1 




870 


GOSUB 


1050 




880 


PRINT 


"FULL MOON CO) ";Y;" ";PM$;" ";PD + 2 * PH 




890 


IF PH 


= 2 AND PD + 3 * PH > 28 THEN PD = PD + 3 




900 


IF PD 


+ 3 * PH > 31 THEN PD = PD - 31:PM = PM + 1 




910 


IF PM 


> 12 THEN PM = PH - 12:Y = Y + 1 




920 


GOSUB 


1050 




930 


IF XP 


= 1 THEN M = H - 1 




940 


PRINT 


"LAST QUARTER ( ";Y;" ";PM$;" ";PD + 3 * PH 




950 


PRINT 


NS 




960 


IF PD 


+ 3 * PH + 7 = 30 OR PD + 3 * PH + 7 = 31 THEN GOTO 1170 




970 


Y = YP 






980 


M = M + 


1 




990 


IF NS 


< N THEN NS = NS + 1 : IN = 0:P9 = 0: GOTO 330 




1D0D 


PRINT 


: INPUT "DO YOU WANT HOPE ";A$ 




101C 


IF A3 


= "Y" THEN GOTO 140 




102C 


IF A3 


< > "N" THEN PRINT "ANSWER Y OR N ": GOTO 1000 




103C 


HOME 






104C 


END 






105C 


IF PM 


= 1 THEN PH$ = "JAN": RETURN 




106C 


IF PM 


= 2 THEN PM$ = "FEB": RETURN 




107C 


IF PH 


= 3 THEN PM$ = "MAR": RETURN 




108C 


IF PH 


= 4 THEN PM$ = "APR": RETURN 
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■PHASE (continued)- 



1090 


I F 


PM 


= 5 THEN PMJ = "MAY": 


RETURN 






1100 


IF 


PM 


= 6 THEN PM$ = "JUN": 


RETURN 






1110 


IF 


PH 


= 7 THEN PM$ = "JUL" : 


RETURN 






1120 


IF 


PM 


= 8 THEN PHI = "AUG": 


RETURN 






1130 


IF 


PM 


= 9 THEN PMS = "SEP": 


RETURN 






1140 


IF 


PM 


= 10 THEN PH$ = "OCT" 


: RETURN 






1150 


IF 


PH 


= 11 THEN PH$ = "NOV" 


: RETURN 






1160 


IF 


PM 


= 12 THEN PH$ = "DEC" 


: RETURN 






1170 


PR INT 


:PZ = 30 








1180 


PRINT 


"NEW MOON ";Y; 


" "-PHS; 


' ";PZ 




1190 


IF 


NS 


^ N THEN GOTO 1270 








1200 


PM 


= PM + 1 : GOSUB 1050 








1210 


PRINT 


"FIRST QUARTER ) ";Y; 


" ";PH$; 


' ";PZ - 


23 


1220 


PR INT 


"FULL ROON CO)";Y; 


" ";PH$; 


• ";PZ - 


15 


1230 


PRINT 


"LAST QUARTER C ";Y; 


" ";PMJ; 


. ".p2 _ 


8 


1240 


IF 


NF 


= 1 THEN NF = 0:NS = 


NS + 1 : 


SOTO 127C 




1250 


NF 


- 1 : 


PZ = 30 - 1 : PRINT :NS = NS + 


1: GOTO 


1180 


1260 


PZ 


= 0: 


PD = 








1270 


XP 


: 1 : 


M = M + 1 








1280 


PRINT 


NS: GOTO 970 









PART 

3 
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THE PLANETS 



PLANETS WERE KNOWN as wandering stars to the ancient Greeks, 
because they appear to move relatively quickly with respect to the fixed 
background of stars. Observations of the motions of the planets led to new 
explanations. These new theories of planetary motion eventually caused 
the demise of the dogma of an Earth-centered universe and spurred the 
Copernican revolution of human thought. This was part of the transformation 
that ultimately resulted in the Industrial Revolution. Continued develop- 
ments in physics and astronomy played an important part in accelerating 
the pace of the Industrial Revolution. 

The programs contained in this section all deal with the motions of the 
planets. There are programs to find the planets among the stars of the 
zodiac, programs that determine when planets are in certain positions, 
such as when Mars is closest to Earth, and programs to aid in planetary 
observations. 




Fhoto Credit: NASA/jet Fmpukion iahriratory 

Spacecraft have now visited all the planets of the solar 
system known to the ancients; the most recent fly by 
was thatofVoyager past Saturn. This huge planet pos- 
sesses a bizarre collection of satellites ar->dan extreme- 
ly complex ring system. This photograph shows the 
shadow of the planet on the rings and some of the 



many gaps between the individual ringlets making up 
the system. Voyager showed that far from being 
empty gaps, they arc actually filled with even fainter 
and narrower ringlets. One of Saturn's smalt 
satellites, Dione, is the bright spot close to the south 
pole of the planet. 
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Program 11: RADEC 



Right Ascension and Declination for All Planets 
for Any Date _^ 



The location of any star or other celestial object can be placed on the 
celestial sphere in terms of its right ascension and declination, just as the 
location of any city on Earth can be described in terms of latitude and 
longitude. The right ascension of a planet is analogous to longitude on 
Earth; it is measured eastward along the celestial equator from the vernal 
equinox (see TIMES, Program 3). One sidereal hour is equal to 1 5 degrees 
on the celestial sphere. Celestial objects that are on the meridian {that is, 
they culminate) at the same time as the vernal equinox have a right ascen- 
sion of hours. Those that culminate 1 hour later have a right ascension of 
1 hour, and so on. 

The declination of a planet is analogous to latitude on Earth. It is 
measured in degrees north { + ) or south (-) of the celestial equator. 

The right ascension and declination of a planet allows you to place the 
planet in relation to theconstellationsandthusfind where it can be seen in 
the night sky. You can plot a planet's position by using the right ascension/ 
declination grid of a star map. By asking the computer to provide right 
ascensions and declinations for different days or months, you can plot the 
apparent motion of the planets relative to the stars and to each other. 
Other programs in this book do some of these plots for you (for example. 
Programs 16 and 17). 

This program computes right ascensions and declinations of the 
planets Mercury, Venus, Mars, Jupiter, Saturn, Uranus, Neptune, and 
Pluto for any requested date. An example of the display provided by the 
program is shown in Figure 11.1. ^ >, .->. ..,,- :•., - 
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PLANETARY DATA FOR.. 1982 12 1 
WHICH IS 83?0 DAYS FROM EPOCH 196a 



HELIO 
LONG 



MERCURY 266 . 2 



DIST 
TO PLANET 



1 .432 



R.A 
HRS 



DEC 
DEG 



16.92 -26.8 



UEHUS 
HARS 



263.6 
322.7 



JUPITER 231.6 



SATURN 
URANUS 



206.4 
244.3 



NEPTUNE 266.1 



PLUTO 



210.2 



1 .697 
1 .899 
6.343 
10.54 
19.96 
31 . 19 
30.36 



16.98 
19.51 



23.4 



15.61 -18.1 



-9.24 



16.3 
17.7 



14.09 4,718 



DO YOU WANT ANOTHER DATE? K 



The program RADEC provides a table of right ascension and declination of all the planets for 
stny requested date. 

Figure 11.1 



Calculations are based on the 1960 epoch (about midcentury to allow 
forward and backward calculations without perturbations becoming too 
large). The program calculates the number of days from the epoch to the 
requested date. It uses planetary orbital data from the data statements, in 
which angles are expressed in radians. These statements provide information 
about each planet at the epoch, such as average motion per day, position 
at the epoch, eccentricity of the orbit, longitude of the perihelion, length 
in astronomical units of the semi-major axis, inclination of the orbit, and 
longitude of the ascending node. As indicated in the remark (REM) 
statements, the program uses standard trigonometrical formulas to derive 
for each planet the current heliocentric longitude, the distance from the 
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Sun in astronomical units, the angular distance above or below the ecliptic 
plane, and the distance in astronomical units from Earth. The angular 
distance from the Sun is then derived from the three sides of the triangle of 
distances of Earth, planet, and Sun. From this are derived the geocentric 
coordinates of each planet. These are then converted to right ascension 
and declination by changing degrees (measured from the first point of 
Aries) to hours of right ascension, and using the inclination of Earth's axis 
to derive declination (angular distance north or south of the celestial 
equator). String functions are used to prepare the data for display to an 
appropriate number of decimal places. 

As with earlier programs, you may need to modify HOME statements 
and use the ENTER key instead of the RETURN key. The statements that 
may require modification are: 60, 180, 270, 280, 810, and 1100, 

The listing of the RADEC program follows. 
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RADEC 


. - 


10 


REM RA AND DEC OF ALL PLANETS 




20 


DEF FN ASN(X) = ATN (X / SQR ( - X * X + D) 




30 


DEF FN ACO(X) = - ATN C X / SQR ( - X * X + 1 > ) + 1.5707963 




40 


DEF FN RAD(X) - .01745328 * CX) 




50 


DEF FN DEG(X) = 57.29578 * CX) 




60 


HOME : PRINT : PRINT : PRINT : PRINT 




70 


PRINT TABC 11)"ASTR0N0MY PROGRAM" 




80 


PRINT : PRINT 




90 


DDTMT TflRf 11^"_.». .««" 




rKJNI IftD^ \ \ J — — — — .«« 


TOO 
110 


PRINT TABC 11>"I RADEC I" 




PRINT TAB( 11 J 




120 


PRINT : PRINT 




130 


PRINT TABC 8)"BY ERIC BURGESS F.R.A.S." 




140 


PRINT : PRINT 




150 


PRINT TABC 9)"ALL RIGHTS RESERVED BY" 




160 


PRINT TABC 9)"S & T SOFTWARE SERVICE" 




170 


FOR J = 3000 TO 1 STEP - 1: NEXT 




180 


HOME : PRINT ; PRINT : PRINT 




190 


PRINT : PRINT : PRINT : PRINT 




200 


PRINT TABC 2)"THIS PROGRAM GIVES RIGHT ASCENSION" 




210 


PRINT TABC 11}"AND DECLINATIONS" 




220 


PRINT TABC 3>"HELI0CENTRIC LONGITUDES AND THE" 




230 


PRINT TABC 3>"DISTANCES FROM EARTH OF ALL THE" 




240 


PRINT TAB( 12)"PLANETS" : PRINT : PRINT 




250 


PRINT TABC 4)"F0R THE DATE WHICH YOU INPUT" 




260 


PRINT : PRINT : PRINT : PRINT 




270 


INPUT "TO CONTINUE PRESS RETURN";AS 




280 


HOME : PRINT : PRINT : PRINT : PRINT 




290 


PRINT "ENTER THE DATE": PRINT 




300 


FL = 2 




310 


INPUT "THE YEAR ";YD$:Y = VAL CYD$) 




320 


IF Y = THEN PRINT "INVALID RESPONSE": PRINT : GOTO 310 




330 


IF Y > 1800 GOTO 370 




340 


PRINT "IS ";Y;" THE CORRECT YEAR? ": INPUT Y$ 




350 


IF Y3 = "Y" THEN 370 




360 


IF Y$ < > "N" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 340 




370 


PRINT : INPUT "THE MONTH ";MD$:M - VAL CMD$) 




380 




370 


390 


PRINT : INPUT "THE DAY " ; D D $ : D = VAL CDD$) 




400 


IF D = OR D > 51 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 


390 


410 


IF M = 2 AND D > 29 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 


390 


420 


REM CALC GREG. DAYS TO DATE 




430 


REM FROM EPOCH 1960,1,1 




440 


DG = 365 *Y+D+CCM-1)*31) 




450 


IFM> =3 GOTO 490 




460 


REM CALC FOR JAN AND FEB 




470 


DG = OG + INT CCY - 1) / 4) - INT ( C . 75 ) * INT CCY - 1) / 100 + 


1)) 


480 


GOTO 510 




490 


REM CALC FOR MAR THRU DEC 




500 


DG = DG - INT (M * .4 + 2.3) + INT (Y / 4) 
- INT CC .75) * INT CCY / 100) + 1)) 




510 


NI = DG - 715875 




520 


REM PLANETARY DATA FOR EPOCH 1960 
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RADhC (continued)- 



530 IF F = 1 GOTO 790 

540 RESTORE 

550 DIM PD (9, 10) 

560 FOR YY = TO 8: FOR XX = TO 8 

570 READ PD CYY, XX) 

580 NEXT XX, YY 

590 REM MERCURY 



600 
610 
620 



660 



680 



DATA . 07 1 42 2, 3. 84 84,. 388301, 1.34041,. 387 1,.0797A, 2. 73 51 A,. 122 173,. 83601 3 
REM VENUS 



DATA .02 796 2, 3. 02 81 2,. 01 31 95, 2. 28638,, 72 33,. 00 506,3. 85 01 7,. 059341, 
1.33168 
630 REM EARTH 

64 DATA .01 72 02, 1.74 02 2,. 03 2044, 1.78 54 7,1,. 01 7, 3. 33 92 9, 0,0 
650 REM MARS 



DATA .0091 46, 4. 51 234,. 175301, 5. 85209, 1.5237,. 141 704, 1.04656,. 031 42, 
.858702 - 



670 REM JUPITER 



DATA .001 4 5, 4. 53 364,. 0904 78,. 2391 1,5. 2028,. 249374, 1.76 188,. 01 972, 
1.74 533 



690 REM SATURN 

700 DATA .000584, 4. 89884,. 1055 58, 1.61 094, 9. 5385,. 5341 56, 3. 1257,. 043633 

1.977458 
710 REM URANUS 

72 DATA .000205, 2. 4661 5,. 088 5 93, 2. 96 706, 19. 182,. 90 15 54, 4. 49084,. 01 396, 

1.28805 
730 REM NEPTUNE 

740 DATA -0001 04, 3. 78 5 5 6,. 01 696 5,. 773 18 1,30. 06,. 270 54, 2. 33498,. 031 4 16, 

2.29162 
750 REM PLUTO 

760 DATA .000069,3.1694 8, .471 2 39, 3. 91 303, 39. 44, 9. 86, 5. 23 11 4,. 3001 97, 1.91 81 2 
770 FOR 19 = 1 TO 9: READ P${19): NEXT 19 

780 DATA MERCURY, VENUS, EARTH, MARS, J UP ITER, SATURN, URANUS, NEPTUNE, PLUTO 
790 F = 1 

800 REM CALC DATA FOR PLANETS ' 

810 HOME : PRINT 

82 PR INT "PLANETARY DATA FOR .."; Y; " ";M;" "; D 

830 PRINT "WHICH IS ";NI;" DAYS FROM EPOCH 1960" 

840 PRINT "-:-:-:-:-;_;-;_;_:_._._._._.-.„._._._...- 

850 PRINT " HELIO DIST R.A.' 

860 PRINT " LONG TO PLANET HRS 

870 PRINT "-:-:-:-;-:-:-:-:-:-:-:_:-:_:_._._._._.-. 

880 PR INT ; I = 1 

89 FORJ=OT08:G0SU8 1120 

90 A CI) = A:D(I) ^ D:L(I) = L 
910 I = I + 1 : NEXT 
920 FOR I = 1 TO 9 
930 REM SKIP EARTH 
940 IF I = 3 THEN NEXT 
950 GOSUB 1260 

960 QCI) = Q:RCI) = R:V(I) = V 

970 NEXT 

980 FOR I = 1 TO 9:ACI) = FN DEGCACI)} 

990 IF I - 3 THEN NEXT 
1000 PRINT PSd); 
1010 PRINT TABC 10); VAL C LEFTS C STRS (A(I>),5)); 



DEC" 
DE6" 
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■RADIC (continued)- 



1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1 110 
1120 
1130 

I 140 

II 50 
1160 
1170 
1 180 
1190 
1200 
1210 
1220 
12 30 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1 460 



PRINT 
PR INT 
PRINT 
PR INT 
NEXT 
INPUT 
IF A$ 
IF AS 
HOME 
END 

REM C 
REM C 
A = N I 



C LEFTS 


C STRS 


CQ(I>) 


,5)>; 


( LEFTS 
C LEFTS 


( STRS 
( STRS 


(RCD) 
CV(1)) 


, 5 ) ) ; 
,5)) 



TAB( 18); VAL 
TABC 27); VAL 
TABC 34); VAL 



"DO YOU WANT ANOTHER DATE? 

= "Y" GOTO 280 

< > "N" THEN PRINT "INVALID RESPONSE' 



AS 



PR INT 



GOTO 1070 



ALC 
A 



IF 
IF 



A > 
A 



C = PD(J,2) 



,^^. ^,[>,AND L 
:ALC HELIOCENTRIC LONG A 
* PIXJ^O) + PD(J,1 > 

> 6.28318 THEN A = C(A / 6.28318) - 
■: THEN A = A + 6.28318: GOTO 1160 
CJ , 2) * S IN (A - PD CJ , 3) ) 

^ C 

> 6.28318 THEN A = A - 6.28318 



INT (A / 6.28318)) * 6*^28318 



X = 2 
REM 
IF Z 
IF Z 
IF R 
IF R 
IF R 
REM 
IF Z 
IF Z 

X = 



ALC RA AND DEC R, V 
ND DISTANCE FROM EARTH Q 
(3) - A(I) 

ABS CZ) > 3.14159 AND Z < THEN 2 = Z + 
ABS (Z) > 3.14159 AND Z > THEN Z = Z - 

DISTANCE FROM EARTH 
SQR CD CI) " 2 + DC3) " 2 - 

CALC ANG DISTANCE FROM SUN 
DCI) + DC3) + Q) / 2 

* FN ACOC SQR CCCP * CP - DCI))) 

CALC RA 

< THEN R = FN DEG(AC3) + 3.14159 

> THEN R = FN DEG(AC3) + 3.14159 

> 24 THEN R = R - 24: GOTO 1390 

< - 24 THEN R = R + 24: GOTO 1400 

< THEN R = R + 24: GOTO 1410 
CALC DEC. 

< THEN V = S IN (AC3) 

> THEN V = SIN CAC5) 
FN DEGfX) 



28318 
28318 



D (I ) * D (3) * COS CZ) ) 



/ CD C3) * Q))) ) 



X) 
X) 



1 5 
15 



3.14159 - X) 
3.14159 + X) 



23.44194 
23.44194 



FN DEGCL CD) 
FN DEGCLCD) 



RETURN 




P/joto Credit: NA5A/let Propuhion Laburatory 



Mars, known as the red planet, has intrigued manl<ind from time immemorial. Long 
associated with the god of war, the baleful planet until recently elicited images of Mar- 
tians and mvaders from space. Although ihe Vikingexpeditions to Mars threw consider- 
able douht on the possibility of there being life on Mars, it is still an intriguing planet. In 
this photograph Mars appears somewhat Earth-like, with clouds, volcanoes, and vast 
plams. Some parts of Mars are heavily cratered. The dark spots in the photograph are the 
huge volcanoes of the Tharsis region. In general Mars is a cold and icy planet 
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Angular Diameter and Distance of Mars for Any Date 
and Next Opposition ' 

Because Mars orbits the Sun outside the orbit of Earth, it is referred to 
as a superior planet. The planet takes 687 Earth days to revolve completely 
around the Sun, compared with Earth's 365.25 days. Although Mars ap- 
proaches relatively close to Earth compared with other outer planets its 
small size makes it a difficult object to observe. The orbit of Mars is very 
elliptical compared with that of Earth, and consequently there are optimal 
imesforobservingtheplanetthrough any telescope. At closestapproach 

(per.hel,on)Mars is 128.41 million miles from the Sun, while at its greatest 
distance (aphelion) the planet is 1 54.86 million miles from the Sun 

When Mars and Earth are aligned on the same side of the Sun Mars is 
said to be m opposition (that is, opposite to the Sun in the terrestrial sky) 
and It IS then at its closest to Earth and at its best position for telescopic 
observation. However, because of the elliptical Martian orbit some 
oppositions are good (August and September) while others are bad 
(February and March). At a bad opposition Mars has an angular diameter 
of or)ly about half that at a good opposition. The resolution of surface 
details IS accordingly quite poor at a bad opposition. Consequently 
favorable oppositions are welcomed by amateur astronomers 

On the average, oppositions of Mars take place once every two years 
and two months (780 days). When oppositions occur with Mars close to 
aphelion, the oppositions are only about 764 days apart, while perihelic 
oppositions are about 811 days apart. The best (perihelic) oppositions 
°'?1"' \PP;:°^'^^t^'y every 1 6 years, and at those times Mars approaches 
within 34.9 mil , on miles of Earth. At aphelic oppositions Mars is some 
63.2 million miles from Earth. Unfortunately for observers located in the 
Northern Hemisphere, the August oppositions take place when Mars is 
on that part of the ecliptic which dips south of the celestial equator- the 
planet is low in the southern sky even at midnight. Good oppositions of 
Mars are best observed i n the Southern Hem isphere. You wi II see why this 
-s so If you use SYKSET/SKYPLT (Program 16) to display the midnight sky 
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for an August and a February opposition of Mars as seen from a location in 
the NortJiern Hemisphere and then fronn a location in the Southern 
Hemisphere. 

This program offers two options: you can find the angular diameter of 
Mars at any date, or you can find the next opposition following any date. 
Both result in asimilardisplay of theangulardiameterof Mars, itsdistance 
from Earth, its angular distance from the Sun, and a comparison of its 
angular diameter with the greatest and smallest possible angular 
diameters. Figure 12.1 showsthedetaileddisplay of information given by 
the program. 

When you choose to find the next opposition following any date, the 
program counts down dates toward the opposition. While doing so it 



FOR YEAR J 982 MONTH 3 DAY 30 



AHG. DISTANCE FROM SUN IS 178. DEGREES 

AHG DIAM OF MARS IS 14.67 SEC OF ARC 
HAX AT CLOSEST OPPOSITION IS 25 SEC 



COHPARISONS ARE. 

HAXIMUM DIAM C -- 

AT OPPOSITION 
DIAM AT DATE < 
MINIMUM DIAM <-> 
AT CONJUNCTION 



KANT ANOTHER DATE ■ 



y 



The MARSP program will display the information shown here for any date, or it will find the 
next opposition of Mars and display the information for that date. 

Figure 12.7 
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displays a graphic plot showing the Sun, Earth, and Mars relative to the 
direction of the vernal equinox {first point of Aries). It also shows the 
movement of the two planets around the Sun toward the approaching 
opposition, to the point where they become aligned on the same side of 
the Sun at the opposition. 

To accomplish this the program first calculates the positions of Mars 
and Earth at the beginning date. The calculations are made in terms of 
heliocentric longitude, which is the angle between the planet and the first 
point of Aries, measured at the Sun. Using high resolution graphics it plots 
the Sun, the direction of the first point of Aries, Mars, and Earth on the 
screen (subroutine 1980). The plot positions are derived (instructions 2130 
and 21 40) from the heliocentric longitudes of Earth and Mars (AE and MA), 
and they are converted to a suitable scale for the monitor screen (instruc- 
tions 1 990 through 2030). The display appears as though seen from high 
above the Sun. 

The program next compares the heliocentric longitudes of Mars and 
Earth. If they differ by more than 1 20 degrees it jumps a month, recalculates 
the positions, and replots, erasing the first plot. When the difference in 
longitude of the two planets is less than 120 degrees, the increments of 
time are reduced to five days. As the angle between the planets narrows 
still further, the increments are reduced to two days, and finally to one 
day. When the two longitudes are within two degrees of each other the 
program declares an opposition and calculates the right ascension of Mars. 
The program then ascertains in which zodiacal constellation the opposition 
occurs (instructions 1 780 through 1 890) and prints the date and the name 
of the constellation. The program then calculates more details about the 
opposition and displays them (see Figure 12.1). 

The listing of the MARSP program follows ■ . ■ . - 
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MARSP- 




10 


DEF FN ACOCX) ^ - ATN ( X / S Q R C - X * X + 1) ) + 1.5707963 


20 LY = 




30 FL =^ 




40 PI = 3. 


A159:P2 = 6.28318 


50 


HOME : 


PRINT : PRINT : PRINT 


60 
70 


PRINT 
PRINT 


TiRr in"^"^ , ..--. — -.-'* 


IMp^. I U J ^ — — — — — — -.— 

TABC 10)"I M A R S I" 


80 


PR INT 


T An f ■in"^" " 


lABl, \ U ) ' 


90 


PR INT 


: PRINT 


100 


PR INT 


TABC 8)"AN ASTRONOMY PROGRAM": PRINT : PRINT 


110 


PRINT 


TABC 7)"BY ERIC BURGESS F.R.A.S.": PRINT : PRINT 


120 


PRINT 


TABC Sr'ALL RIGHTS RESERVED BY" 


130 


PRINT 


TABC 8)"S S T SOFTWARE SERVICE": PRINT : PRINT 


UO 


PRINT 




150 


INPUT 


"DO YOU WANT INSTRUCTION (Y/N)";A$ 


160 


IF A$ 


= "N" THEN HOME : PRINT : PRINT : PRINT : GOTO 250 


170 


IF AS 


< > "Y" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 150 


180 


HOME 


: PRINT : PRINT : PRINT 


190 


PRINT 


"THIS PROGRAM OFFERS TWO ALTERNATIVES": PRINT 


200 


PRINT 


" 1) CALCULATES APPROXIMATE ANGULAR" 


210 


PRINT 


DIAMETER OF MARS FOR ANY DATE" 


220 


PR INT 


" 2) PROVIDES APPROXIMATE DATE OF" 


230 


PR INT 


NEXT OPPOSITION AFTER ANY DATE": PRINT 


240 


PR INT 


: PRINT : PRINT 


250 


PRINT 


"SELECT 1) ANGULAR DIAMETER" 


260 


PRINT 


2> NEXT OPPOSITION" 


270 


PRINT 




280 


INPUT 


BS 


290 


IF B$ 


= "1" THEN 320 


300 


IF B$ 


< > "2" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 250 


310 


GOTO 


1390 


320 


GOSUB 


670: REM GET DISTANCE FROM EARTH 


330 


HOME 


: PRINT : PRINT 


340 


MD$ = 


LEFTS ( STRJ (9.31 / Q),5) 


350 


PRINT 


"FOR YEAR ";y;" MONTH ";M;" DAY ";D: PRINT 


360 
370 


PRINT 


"^___»^^,i rp , an TMT 


; KKINI 

-EFTS ( STR$ CQ),4) 


380 


PRINT 


"DISTANCE OF MARS IS ";Q$;" A.U." 


390 


PRINT 


OR "; LEFTS C STRS (Q * 92. 96), 4);" MILLION MILES" 


400 


PRINT 




410 


MW$ = 


LEFTS ( STR$ (W * 57.29578)^4) 


420 


PRINT 


"ANG. DISTANCE FROM SUN IS ";MW$; 


430 


PRINT 


" DEGREES": PRINT 


440 


IF VAL CMD$) > 25 THEN MD$ = "25" | 


450 


PR INT 


"ANG DIAM OF MARS IS ";MDS; 


460 


PR INT 


" SEC OF ARC" 


470 


PR INT 


" MAX AT CLOSEST OPPOSITION IS 25 SEC" 


480 


PR INT 




490 


PR INT 


"COMPARISONS ARE " 


500 


PR INT 




510 


PRINT 


"MflVTMIIM r\TAM f , "S 


mMAinUrl UiAn ^ ►— ^^j 


520 


PRINT 


" AT OPPOSITION" 


530 


IF 9. 


56 / Q > =25 THEN OP = 24: GOTO 550 


540 


OP = 


INT C9.36 / Q) 
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550 

560 

570 

580 

590 

600 

61 

620 

630 

6^0 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

76 

770 

78 

790 

800 

81 

820 

830 

840 

85 

860 

870 Q 

880 P 

890 

900 V 

910 W 

920 

930 

940 

950 

960 

970 

980 

99 

1000 

7010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 



PRINT "DIAR AT DATE ("; 

PRINT TABC 14 + OP)")" 

PRINT "MINIMUM DIAM (-) 

PRINT ■' AT CONJUNCTION" 

PR INT : PR INT 

INPUT "WANT ANOTHER DATE ";A$ 

IF AS = "N" THEN HOME : GOTO 660 

IF AS < > "Y" THEN PRINT "INVALID RESPONSE" 

HOME :FL ^ 0: PRINT : PRINT : PRINT 

IF B$ = "1" THEN GOTO 320 

GOTO 1390 

END 

REM ROUTINE FOR ANGULAR DIAMETER 

GOSUB 930: REM ENTER DATE 

GOSUB 1180 

REM CALC DISTANCE FROM EARTH 

REM AND ANGULAR DISTANCE FROM SUN 

E = NI * .01 7202 + 1 . 74022 

IF AE > P2 THEN AE = ((AE / P2) - 

IF AE < THEN AE ^ AE + P2: GOTO 

E = .03 2044 * SIN (AE - 1.78 547) 

E = AE + CE 

IF AE > P2 THEN AE - AE - P2 

IF AE < THEN AE = AE + P2: GOTO 

E = 1 + .017 * SIN (AE - 3.33926) 

GOSUB 1290 



PR INT 



GOTO 600 



INT 
740 



780 



CAE / P2)) * P2 



2 = 



AE - MA 
A B S { Z ) > 
ABS (2) > 

Z = THEN 



< THEN 2 

> THEN Z 

DE:W = PI : 

■ OE:W = 0: 



= Z 
= Z 



PI AND 

P1 AND 

Q = MD 

IF Z = PI THEN Q = MD 

REM CALC DISTANCE (Q) FROM EARTH 

SQR (MD "2+DE"2-2*MD* 

= (MD + DE+Cl)/2 
REM CALC ANGULAR DISTANCE (W) FROM 
SQR CCP * (p - MD>) / CDE * Q)) 

= 2 * FN ACO(V) 
RETURN 

REM ENTER DATE 

IF 8$ = "2" AND FL = 1 THEN GOTO 1160 
PRINT : PRINT 
PRINT "ENTER THE DATE 
INPUT " THE YEAR "; YS 
IF Y = THEN PRINT 
IF Y > 1800 GOTO 1040 

PRINT "IS ";Y;" THE CORRECT 

IF A$ = "Y" THEN 1040 

I F A$ < > "N" THEN PR INT 

IF A$ = "N" THEN 970 

REM CHECK FOR LEAP YEAR 

GOSUB 1070 

GOTO 1100 
Y4=Y/4:Y5=Y/100 

IF Y4 - INT (Y4) = AND Y5 - 

RETURN 



P2 
P2 



GOTO 920 
GOTO 920 
(AU) 
* DE * 

SUN 



COS (Z)) 



: PRINT 

Y = VAL (Y$) 

INVALID RESPONSE' 



PR INT 



GOTO 970 



YEAR": INPUT A$ 



INVALID RESPONSE' 



PR INT 



GOTO 1000 



INT CY5) < > THEN LY 
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IsAARSP (continued)- 



PR INT 



INPUT " THE MOMTH ";M$:M 



1 100 

1110 IFM=0 0RM>12 THEN 

1120 PRINT : INPUT " THE DAY 

1 130 IF D ^ OR D > 31 THEN 

1140 IF M = 2 AND D > 29 THEN 

1150 REM STORE INITIAL DATE 

1160 YI = Y:MJ = M:DI = D 

1170 RETURN 

1180 REM CALC DAYS FROM EPOCH 

119DDG^365*Y+D+ C(H-1) 

1200 IF M > ^3 GOTO 124D 

1210 REM CALC IF JAN OR FEB 

1220 DG = DG + INT CCY - 1 ) / 4) 

1230 GOTO 1260 

1240 REM CALC FOR MAR THRU DEC 



VAL CMS) 



PRINT "INVALID RESPONSE": 
;DS:D = VAL (D$) 
PRINT "INVALID RESPONSE": 
PRINT "INVALID RESPONSE" 



31) 



PRINT : 


GOTO 1070 


PRINT : 


GOTO 1120 


PRINT 


: GOTO 1120 



INT CC .75) 



INT ((Y 



1) / 1 00 + 1 ) ) 



1250 


DG = DG - INT CM * .4 + 


2.3) + INT CY / 4 




- INT (C.75) * INT CCY / 100) + 


D) 


1260 


NX = DG - 715875 






1270 


RETURN 






1280 


GOTO 320 






1290 


REM CALC MARS'S POSITION 




1300 


MA = NI * .009146 + 4.51234 




1310 


IF MA > P2 THEN MA = CCMA / P2) - 


INT CMA 


13 20 


IF MA < THEN MA = MA 


+ P2: GOTO 


1320 


1330 


MC = .175301 * SIN CMA 


- 5.85209) 




1340 


MA = MA + MC 






1350 


IF MA > P2 THEN MA = MA 


- P2 




1360 


IF MA < THEN MA = MA 


+ P2: GOTO 


1360 


1370 


MD = 1 . 5237 + .141704 * 


SIN CMA - 


1.04656) 


1380 


RETURN 






1390 


GOSUB 930: GOSUB 1180 






1400 


GOSUB 710 






1410 


PRINT : PRINT 






1420 


HOME : PRINT : PRINT : 


PR INT 




1430 


VTAB 23 






14 40 


PRINT YI;" ";MI;" ";DI 






1450 


GOSUB 1980: REM TO PLOT PLANETS 




1460 


FL = 1 






1470 


DS - W * 57.29578 






1480 


IF DS > 120 THEN GOTO 


1540 




1490 


FL = 1 






1500 


M = M + 1 






1510 


IF M > 1 2 THEN M = 1 : Y 


= Y + 1 




1520 


GOSUB 1070 






1530 


GOTO 1390 






1540 


REM COMPUTE FOR DAYS 






1550 


IF DS < 160 THEN D = D 


+ 5: GOTO 


1580 


1560 


IF DS < 170 THEN D = D 


+ 2: GOTO 


1580 


1570 


D = D + 1 






1580 


GOSUB 1630 






1590 


D2 = DS 






1600 


IF DS > 1 78 THEN GOTO 


1710 




1610 


IF D2 < DS THEN D = D + 1 : GOSUB 


1630 


1620 


GOTO 170D 






1630 


REM CORRECT FOR MONTH 


AND YEAR ENDS 


1640 


IF CLY = 1 AND M = 2 AND D > 29) 


THEN M = 



/ P2) ) * P2 



3: D 



29: GOTO 164 
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1650 
1660 
1670 

1680 

1690 

1700 

1 710 

1720 

1730 

1740 

17 50 

1760 

1 770 

1780 

179 

1800 

1810 

1520 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2 70 

2080 

2090 

2100 

21 ID 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 



AND H = 2 AND D > 2. 
THEN GOTO 1690 
OR M = 6 OR M = 9 OR 



IF CLY = 

IF D < 31 

IF CM - 4 

GOTO 1690 

IF D > 31 

RETURN 

GOTO 1390 

REM COMPUTE RA 

IF Z < D THEN R = AE 

IF Z > THEN R = AE 

R = 57. 29578 * R / 1 5 
IF R > 24 THEN R = R 
IF R < - 24 THEN R 
IF R < THEN R = R 
IF R > AND R < 
IF R > 2 AND R < 
IF R > 4 AND R < 
IF R > 6 AND R < 
IF R > 8 AND R < 
IF R > 1 AND R 
IFR>12ANDR 
IF R > 1 4 AND R 
IF R > 1 6 AND R 
IF R > 1 8 AND R 
IF R > 20 AND R 
IF R > 2 2 AND R 
PR INT 
TEXT 
PR INT 
PR INT 
PRINT 
PR INT 
INPUT 

y = Y I 
REM 

AD 



.) THEN M = 3: D = D 



28: GOTO 1650 



1 1 ) THEN M = M + 1:D = D-30; 



THEN M=M+1:D=D-31 



FOR YI,MI,DI 
PI - I 
PI + 1 



- 24; 
: R + 
- 24: 



GOTO 1750 
24: GOTO 1760 
GOTO 1770 
2 THEN CS = "PISCES": GOTO 1900 
4 THEN C$ = "ARIES": GOTO 1900 
6 THEN CI = "TAURUS": GOTO 1900 
8 THEN C$ = "GEMINI": GOTO 1900 
10 THEN C$ = "CANCER": GOTO 1900 
"LEO" : GOTO 1 900 
"VIRGO" : GOTO 1 900 
"LIBRA": GOTO 1900 
"SCORPIO" : GOTO 1 900 
"SAGITTARIUS": GOTO 1900 
"CAPR ICORNUS" 
"AQUARIUS" 



12 THEN 
14 THEN 
16 THEN 
18 THEN 
20 THEN 
22 THEN CS 
24 THEN CS 



GOTO 1900 



'NEXT OPPOSITION OF MARS IS" 

"YI;" ";MI;" ";DI 
'IN THE CONSTELLATION OF ";CS 



"FOR FURTHER DETAILS PRESS RETURN KEY";QS 
:M = MI:D = DI: GOTO 320 
SUBTOPLOTPLANETS 
50: DM = 75 

AD * SIN (AE) . ■ . 

CAE) 



1 . 5 
DM ' 
1 . 5 



E Y 

EX 

MV 

MX 
HGR 

HPLOT 138,78 
HPLOT 1 36,76 
HPLOT 1 38,81 
HPLOT 138,75 
HPLOT 140,76 



AD * COS 
SIN (MA) 
DM 



COS (MA) 

HPLOT 139,79: 
HPLOT 140,80: 
HPLOT 1 37,81 ; 
HPLOT 137, 75: 
HPLOT 1 39,75 : 
FOR J = 1 50 TO 250 STEP 10 
HPLOT J, 78 TO J + 5,78 
NE XT J 



HPLOT (138 + 

HPLOT (138 + 

HPLOT 269,76 

HPLOT 270,77 

HPLOT 267,77 

HPLOT 273,77 
RETURN 



EX) ,C78 - E Y) 
MX) ,C78 - MY) 
HPLOT 270,79: 
HPLOT 269,76; 
HPLOT 271,76: 



HPLOT 137,77 

HPLOT 1 39,81 

HPLOT 1 36,80 

HPLOT 139,75 

HPLOT 140,76 



HPLOT 270,78 
HPLOT 268,76 
HPLOT 272,76 




Fhoto Credit: NASA/Ame.s 

By contrast with Man, Venus is a hot planet whose 
surface is obscured completely by its cloud system. 
Venus is larger than Mars and almost the same size as 
Earth. A question we still have not been able to 
answer is why Venus should have evolved so differ- 
ently from Earth. Radar carried by spacecraft has 



perpetrated the clouds to reveal highlands, plains, 
and what may be two large volcanic regions through 
which heat escapes from the interior. This picture is a 
view of the cloud-shrouded planet obtained by the 
Pioneer Venus orbiting spacecraft. 
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Elongations, Phases, Angular Diameters, and Distances 

of Mercury and Venus, and Next Elongations 

Across the Aegean Sea in the dawn glow, the ancient Greeks period- 
ically observed a dull white star rising just before sunrise. They called it 
Apollo. They often saw another dull white star following the Sun to set in 
the Ionian Sea, and this they named Mercury, the messenger of the gods. 
It was not until the time of Plato that these two celestial objects were 
recognized as being one: the planet we now know as Mercury, innermost 
planet of our solar system. 

Except in very clear skies. Mercury is an elusive object to find because 
of its proximity to the solar glare. Venus, however, the next planet in terms 
ofdistance from the Sun, isthe most brilliantobject in the sky afterthe Sun 
and the Moon. Venus moves much farther from the Sun than Mercury in 
the morning and evening skies, and it is so brilliant that the Babylonians 
referred to Venus as "mistress of the heavens." 

Because Mercury and Venus follow orbits inside Earth's orbit, they 
are known as inferior planets. They always appear relatively close to the 
Sun in the sky. They are seen as morning or evening stars depending on 
whether they appear to the right or the left of the Sun, respectively. 

The Mayas paid great attention to observing Venus and establishing 
calendars based on the apparitions of the planet. Venus was called noh 
ek, Great Star, and at the time of the Spanish conquest the accuracy of 
observations was such that the Mayas never made mistakes in predicting 
the apparitions of the planet. Pages 46-50 of the Dresden Codex contain 
information about the cycles of Venus in a dot-bar notation to base 20, a 
vigesimal numbering system. Much Mayan architecture is also oriented 
toward Venus's rising and setting points on the horizon. Sacrifices to 
Venus formed a prominent ritual of Mayan religious life. 

As seen from Earth, both Mercury and Venus oscillate to either side of 
the Sun. The maximum distance east or west of the Sun is termed an elon- 
gation. At eastern elongation the planets are visible in the evening sky— 
they appear to follow the Sun in its apparent daily motion across Earth's 
sky. At western elongation the planets are ahead of the Sun and are seen 
as morning stars before sunrise (see Figure 13.1). 
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Apparent path 
of setting Sun 



\ 



Greotest eastern ^^ "'^i^.^^^Path of Venus 

elongation JJL? "^ vj'\^in orbit 




Apporent poth 
of rising Sun 



/ Grc 



j^ Greatest western 
^J^. elongation 
/ \ 




At eastern ehngation Mercury and Venus are visible in the evening sky, 
while at western elongation they are seen as morning ''stars." 



Figure 73.7 
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Venus repeats its apparitions approximately every 584 days, while 
Mercury repeats every 116 days. Mercury's orbit is quite elliptical, so its 
apparitions vary greatly; its elongation from the Sun can be as little as 18 
degrees and as much as 27 degrees. Mercury can be seen for a maximum 
of only 2.5 hours before sunrise or after sunset at a favorable elongation. 
By contrast, Venus moves about 47 degrees from the Sun at its maximum 
elongation and can be observed for a m uch greater period . On the average, 
Venus passes from greatest eastern elongation as an evening star to 
greatest western elongation as a morning star in about 140 days, and from 
a morning star back to an evening star in about 430 days. Venus is unob- 
servable with the unaided eye for about eight days as it passes between 
Earth and the Sun, except on those very rare occasions when the planet 
passes in transit across the face of the Sun. When Venus swings behind 
the Sun it is hidden in the solar glare for about seven weeks. Thus Venus 
has four distinct periods to its cycle: two unequal periods of invisibility, 
and two periods, each of about nine months' visibility, as an evening or 
morning "star." 

This program offers two alternatives. It will provide information on 
the two planets' distances from Earth, angular sizes, and phases for any 
date and graphically display the positions of both planets relative to the 
Sun (see Figure 13.2). It will also calculate the date of the next elongation 
of Mercury or Venus following any date. 

When you select the alternative to seek the next elongation, the 
display counts down in dates toward the elongation and shows the positions 
of Mercury and Venus relative tothe Sun. On arrival at the elongation, you 
can then ask for more details, such as distance from Earth, phase, angular 
distance from the Sun, and angular diameter of the planet at the date of 
elongation (see Figure 13.3). 

Using similar routines to those of earlier planetary programs, the pro- 
gram determines the angular distance of the planets from the Sun (starting 
with instruction 930). It finds the angular distance of the planet for which 
you seek the next elongation, repeats the calculation for a later date, and 
searches for a maximum angular distance from the Sun by repeated com- 
parisons following increments of the date. The next elongation is iden- 
tified as the first maximum of angular distance to be encountered after the 
start date. Next the program determines if this is east or west of the Sun. 
For the date of the elongation it then calculates the other parameters for 
the display. Through a simple sort routine (instructions 1790 through 
1 960) the program develops a graphic display of the Sun with the planets 
configured alongside as they appear from Earth. 

Another version of this program (MERVE) plots the positions of Mercury 
and Venus relative tothe Sun fora number of intervals. This version gives a 
graphic displayofthe planets movingfromsidetosideof the Sun. It allows 
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the display to overlay earlier displays or to scroll, to show several config- 
urations on the screen at once. When all the intervals have been plotted, 
the program allows you to select details about either or both planets- 
such as distance, phase, and angular diameter. It uses the same basic 
algorithmsand sort routineforthegraphlcdisplayastheMVENC program 
uses, but it does not seek an elongation. Instead it counts displays to the 
number of intervals requested. An example of the display provided by the 
MERVE program is shown in Figure 13.4. 
The listings for the MVENC and MERVE programs follow. 



FOR YEAR 1982 MONTH 1 DAY J6 



DISTANCE OF MERCURY 967 A y. 
OR 89 . 87 MILLION MI 

HERCURY»S ANG. DIST. FROM SUN -18. DEG. 

MERCURY'S ANG. DIAMETER 6-9g5^ARCSEC 
MAX AT INFER. CONJ , IS 12 SEC 

MERCURY'S PHASE NEAR HALF 96 DEG ILLUM 

UlSUAL CONFIGURATION ON 1982 1 16 
U = UENUSi M = MERCURY; = SUN 



DO YOU NANT ANOTHER DATE Y/N? 



Details of either or both planets can be displayed by the MVENC and MERVE programs. 



Figure 13,2 
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NEXT ELONGATION OF MERCURY 1982 J J6 

AND THE PLANET IS. . . . 

EAST OF SUN CAN EUENING STAR> 
UlSUAL CONFIGURATION ON 1982 1 16 
U = UENUS; M = MERCURY; 6 ^ SUN 
M U 

DO YOU WANT MORE DETAILS Y/N? M 



Information on the next elongation of Mercury or Venus is displayed by the MVENC progrann. 
Figure 13.3 



DISPLAY 1 IS DATE 1982 1 1 



DISPLAY 2 IS DATE 1982 1 31 



rt 



DISPLAY 3 IS DATE 1982 3 2 



SEkEfiT^DETAILS FOR DISPLAY 

HERCURY <1>; MENUS <2); OR BOTH <3> 1 



Positions of Mercury (M) and Venus (V) are shown relative to the Sun (0) for a series of intervals 
in this typical display generated bytheMERVE program. 

~ —Figure 13.4 
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MVENC 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 

120 

130 

UO 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 



EM I 
EF F 
- 3. 
OME : 
R INT 
RINT 
R INT 
R INT 
R INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
INPUT 
IF AS 
IF AS 
HOME 
PR INT 
PRINT 
PR INT 
PR INT 
PRINT 
PR INT 
PR INT 
PRINT 
PR INT 
PRINT 
PR INT 
PR INT 
PR INT 
INPUT 
HOME 
PRINT 
PR INT 
PRINT 
IF B$ 
IF B$ 
GOTO 
GOSUB 
HOME 
GOSUB 
D$ = 
bt = 
PRINT 
PR INT 
Q$ - 
QS = 
IF E$ 
PR INT 
PR INT 
IF E$ 
PR INT 



NNER PL A 

N ACOCX) 

14159:P2 

PRINT : 

TAB( 10 

: PRINT 

TABC 10 

TAB( 10 

TAB< 10 

: PRINT 

TABC 9 

: PRINT 

TABC 9 

TABC 9 

: PRINT 

"DO YOU 

^ "N" T 

< > "Y 

: PRINT 

"THIS P 

: PRINT 

1 > 



NETS • ELONGATIONS 

= - ATN (X / SQR C - X * X + 1)) + 1.5707963 

= 6.28318 

PRINT : PR INT 
)"AN ASTRONOMY PROGRAM" 



)"-■ 

)"I 

)"-■ 



INNER PLANETS I" 



■A$ 



: PR 
"TO 
: PRl 
"SEL 

: IN 

< > 

21 10 
890: 

: PRI 
440: 
LEFT 
LEFT 
" FOR 

LEFT 
LE FT 
= "2 
"DIS 
TAB 
= "1 
"DIS 



) "BY ERIC BURGESS F.R . A. S, 

)"ALL RIGHTS RESERVED BY" 
)"S 8 T SOFTWARE SERVICE" 

: PRINT 

WANT INSTRUCTIONS Y/N? ", 
HEN HOME : PRINT : PRINT : PRINT : GOTO 350 
" THEN PRINT "INVALID RES PONS E : PR INT : GOTO 1 40 
: PRINT : PRINT 
ROGRAM OFFERS TWO ALTERNATIVES" 

CALCULATES APPROXIMATE ANGULAR" 
DISTANCES OF MERCURY AND VENUS" 
FROM THE SUN, AND APPROXIMATE" 
DISTANCES FROM EARTH, AND" 
PROVIDES APPROXIMATE ANGULAR" 
DIAMETER AND PHASE FOR ANY DATE" 



2> PROVIDES DATE OF THE NEXT" 

ELONGATION OF MERCURY OR VENUS" 
AFTER ANY DATE" 
INT 

CONTINUE PRESS RETURN ";A$ 
NT : PRINT : PRINT 
ECT 1) ANGULAR DISTANCES" 

2) NEXT ELONGATION" 
PUT B$ 
" THEN 410 
"2" THEN PRINT "INVALID RESPONSE' 



PRINT 



GOTO 340 



REM GET DISTANCE FROM EARTH 
NT : PRINT 

GOTO 820 
$ C STR$ C6.68 / MQJ ,5) 
$ C STR$ (16.82 / VQ),5> 

YEAR ";Y;" MONTH ";M;" DAY ";D: PRINT 
-i. PRINT 

$ C STR$ CMG|),4) 

$ ( STR$ CVQ),4) 

" THEN GOTO 540 

TANCE OF MERCURY ";MQ$;" A.U." 

( 10)"0R "; VAL C LEFT! ( STR$ CMQ * 92. 9), 5));" MILLION MI' 

" THEN GOTO 560 

TANCEOFVENUS";VQ$;"A.U." 
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550 


PR INT 


560 


PRINT 


570 


MW$ = 


580 


VW$ = 


590 


IF E$ 


600 


PRINT 


610 


IF E$ 


620 


PRINT 


630 


PRINT 


6i0 


IF E$ 


650 


PRINT 


660 


PRINT 


670 


IF E$ 


680 


PRINT 


690 


PRINT 


700 


PRINT 


710 


PRINT 


720 


PH = A 


730 


IF E$ 


740 


PR INT 


750 


IF E$ 


760 


PH = A 


770 


PR INT 


780 


: 


790 


IF E$ 


800 


GOSUB 


810 


GOSUB 


820 




830 


IF B$ 


8/.0 


INPUT 


850 


IF A$ 


860 


IF A$ 


870 


HOME : 


880 


END 


890 


REM R 


900 


HOME : 


910 


GOSUB 


920 


GOSUB 


930 


REM C 


940 


REM A 


950 


AE = NI 


960 


IF AE 


970 


IF AE 


980 


CE = .0 


990 


AE = AE 


1000 


IF AE 


1010 


IF AE 


1020 


DE = 1 


1030 


GOSUB 


1040 


HZ = A 


1050 


ZM = M 


1060 


IF A 


1070 


IF A 


1080 


REM 


1090 


MQ = 



TABC 10)"OR 



VAL C LEFTS C STR$ (VQ * 92. 9), 5));" MILLION MI' 



LEFTS C STRJ (MW * 57. 29578), 4) 

LEFTS C STRS CVW * 57. 29578), 4) 

= "2" THEN GOTO 620 

"MERCURY'S AWG. DIST. FROM SUN ";HWS;" DEG." 

= "1" THEN PRINT : GOTO 64 

"VENUS'S ANGULAR DIST. FROM SUN ";VW$;" PEG." 

= "2" THEN GOTO 690 

"MERCURY'S ANG. DIAMETER ";MD$;" ARCSEC" 

" MAX AT INFER. CONJ. IS 12 SEC" 

= "1" THEN GOTO 710 

"VENUS'S ANG. DIAMETER ";VDS;" ARCSEC" 
" MAX AT INFER. CONJ. IS 61 SEC" 

BS (MW) + ABS (MZ): GOSUB 2880 ■■ 

= "2" THEN GOTO 760 

"MERCURY'S PHASE ";PH$;" ";PH;" DEG ILLUM" 

= "1" THEN GOTO 820 

BS CVW) + ABS (ZV): GOSUB 2880 

"PHASE OF VENUS ";PH$;" ";PH;" DEG ILLUM" 

= "2" THEN 820 

1790 

1970 . • 

^ "2" THEN RETURN 

"WANT ANOTHER DATE Y/N ? ";A$ 

= "N" THEN HOME : GOTO 880 

< > "Y" THEN PRINT "INVALID RESPONSE": PRINT : 
PRINT : PRINT : PRINT : GOTO 410 

OUTINE FOR ANG. DIAMETER 

PR INT : PR INT : PR INT 
1180: REM ENTER DATE 
1360 

ALC DIST. FROM EARTH 
ND ANG. DISTANCE FROM SUN 

* .017202 + 1.74022 
> P2 THEN AE = C<AE / P2) - INT (AE / P2)) * P2 

< THEN AE = AE + P2: GOTO 970 
32044 * SIN (AE - 1.78547) 

+ CE 

>P2THENAE=AE-P2 

< THEN AE = AE + P2: GOTO 1010 

+ .017 * SIN (AE - 3.33926) 

1470 
E - MA 
Z 

BS (M2) > PI AND MZ < THEN MZ = MZ + P2 
BS (MZ) > PI AND MZ > THEN MZ = MZ ~ P2 
CALC DISTANCE FROM EARTH IN AU 
SQR (MD ' 2 + DE * 2 - 2 * MD * DE * COS CMZ)) 



GOTO 840 
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■MVENC (con tin uedj- 



1100 

1110 

1120 

1130 

1140 

11 50 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1 260 

1270 

1280 

1 290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

137D 

1380 

1390 

1400 

1410 

1420 

1430 

1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1 530 
1 540 
1550 
1560 
1 5 70 
1580 
1590 
1600 
1610 
1620 
163 



CI*ID + DE + MQ) / 2 
CALC ANG. DISTANCE FROM 
SQR ((MP * (MP - MD)) / 

2 * FN ACO{MV) 

ABS CZM) > P1 THEN ZH = 2M 



MP = 

REM 
MV = 
MW = 

IF 

IF ZM > THEN 

GOSUB 1570 

RETURN 

REM ENTER DATE 



SUN 
CDE 



* MQ)) 



+ P2 



MW 



- HW 



THE DATE 
Y = VAL 
"INVALID 



PR INT 

PR INT " ENTER 
THE YEAR ";Y$ 
THEN PRINT 
1800 GOTO 1280 

Y;" THE CORRECT 
THEN 1280 
N" THEN PRINT 
THEN 1210 

"THE MONTH ";M$:H 
> 12 THEN PRINT 



"IS " 
= "Y" 
< > 

: INPUT 
= OR M 



INPUT "THE DAY ";D$:t) = 
OR D > 31 THEN PRINT " 
2 AND M > 29 THEN PRINT 
INIT lAL DATE AND TIME 
M: DI = D 



DAYS FROM EPOCH 1960 

Y+D+((M-1)*31> 

3 GOTO 1420 

IF JAN OR FEB 

INT C(Y - 1) / 4) - INT 



PRINT 

PRINT 

INPUT 

IF Y = 

IF Y > 

PR INT 

IF A$ 

IF A$ 

IF A$ 

PR INT 

IF M = 

PR INT 

IF D = 

IF M = 

REM STORE 
Y I = Y : M 1 = 

RETURN 

REM CALC 
DG = 365 * 

IF M > = 

REM CALC 
DG = DG + 

GOTO 1440 

REM CALC 
DG = DG - 

- INT (( 
Nl = DG 

RETURN 

GOTO 410 

REM CALC MERCURY'S POSITION 
MA = NI * .071425 + 3.8494 
IF MA > P2 THEN MA = ((MA / P2) - 
IF MA < THEN MA = MA + P2: GOTO 
MC = .388301 * SIN (MA - 1.34041> 
MA = MA + MC 
IF MA > P2 THEN MA = MA - P2 " - 
IF MA < THEN MA = MA + P2: GOTO 
MD = .3871 + .079744 * SIN (MA - 2 
RETURN 

REM CALC VENUS'S POSITION 

VA = Nl * .027962 + 3.02812 

IF VA > P2 THEN VA = (CVA / 

IF VA < THEN VA = VA + P2 

VC = .013195 * SIN (VA - 2. 

VA = VA + VC 
IF VA > P2 THEN VA = VA - P2 



" : PR INT 

(Y$) 

RESPONSE"; 



PR INT 



GOTO 1210 



YEAR": INPUT A$ 



INVALID RESPONSE": PRINT 



GOTO 1240 



= VAL (M$) 






INVALID RESPONSE": 


PRINT : 


GOTO 1280 


VAL (D$) 






INVALID RESPONSE": 


PRINT : 


GOTO 1300 


"INVALID RESPONSE" 


: PRINT 


: GOTO 1300 



(C .75) 



INT ((Y 



1) / 1 00 + 1)> 



FOR 

INT 

,75) 



MAR THRU DEC 

(M * .4+2.3) + 

* INT ((Y / 100) 



71 5875 



INT (Y 
+ D) 



INT 
1500 



/ 4) 



(MA / P2)) * P2 



1540 
.73514) 



P2) - 
: GOTO 
28638) 



INT 
1600 



(VA / P2) ) * P2 
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MVENC (continued) 


16A0 


IF VA < THEN VA = VA + P2: GOTO 1640 


1650 


VD = .7233 + .00506 * SIN (VA - 3.85017) 


1660 


ZV = AE - VA 


1670 


VZ = ZV 


1680 


IF ABS C2V) > PI AND ZV < THEN ZV = ZV + P2 


1690 


IF ABS CZV) > PI AND ZV > THEN 2V = ZV - P2 . 


1700 


REM CALC DISTANCE FROM EARTH IN AU 


1710 


VQ = SQR (VD • 2 + DE * 2 - 2 * VD * DE * COS (ZV)) 


1720 


VP = (VD + DE + VQ) / 2 


1730 


REM CALC ANG. DISTANCE FROM SUN - . 


1740 


VV = SQR ((VP * (VP - VD)) / (DE * VQ)) 


1750 


VW = 2 * FN ACOCVV) 


1760 


IF ABS (VZ) > PI THEN VZ = VZ + P2 


1770 


IF VZ > THEN VW = - VW 


1780 


RETURN 


1790 


REM SHOW SUN AND PLANETS 


1800 


Z$(0) = HUS + "M":Z$C1) = VWI + "V" 


1810 


Z$(2)=STR$(0)+"" 


1820 


F0RI=0T02 


1830 


EI(I) = "XXX" 


1840 


NEXT I 


1850 


K = : , 


1860 


FOR I = TO 2 


1870 


IF Z$(I) = "XXX" GOTO 1950 


1880 


FOR J =^ I TO 2 


1890 


IFZ$(J)="XXX"GOTO1910 


1900 


IF VAL CZSCJ)) < VAL (Z$CI)) THEN I = J: GOTO 1910 


1910 


NEXT J 


1920 


ES(K)=Z$(I):Z$(I)="XXX" 


1930 


K = K + 1 ■ 


1940 


I = - 1 , • - 


1950 


NEXT I 


196 


RETURN 


1970 


INPUT "FOR VISUAL CONFIGURATION PRESS RETURN";A$ 


1980 


PR INT 


1990 


PRINT "VISUAL CONFIGURATION ON ";YI;" " ; M I ; " ";DI 


2000 


PR INT 


2010 


PRINT "V = VENUS; M=MERCURY;0=S UN" 


2020 


PRINT 


2030 


Ml =20 +.8* VAL(LEFT$(ESCO),5))/2 


2040 


PRINT TAB( Ml); RIGHTS (E$(0),1); 


2050 


M2 = 20 + .8 * VAL ( LEFTS (E$C1),5)) / 2 


2060 


PRINT TAB( M2); RIGHTS (E$(1),1); 


2070 


M3 = 20 + .8 * VAL C LEFTS (E$C2)^5)) / 2 


2080 


PRINT TAB(M3); RIGHTS (E$C2),1) • 


2090 


PR INT : PR INT 


2100 


RETURN '" 


2110 


HOME : REM ROUTINE FOR ELONGATIONS • • 


2120 


PRINT : PRINT : PRINT 


2130 


PRINT "SELECT MERCURY (1)" 


2140 


INPUT " OR VENUS C2) ";E$ 


2150 


IF ES = "1" THEN GOSUB 2170: GOTO 2430 


2160 


GOSUB 2620 


2170 


HOME : GOSUB 1200: REM GET DATE 


2180 


F L = 
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MVE NC (con t/nued)- 



2190 GOSUB 1360: REM CALC DAYS FROM EPOCH 

2200 GOSUB 930: REM CALC FOR EARTH AND PLANETS 

2210 VWS= ST R$(VW*57, 29578) 

2220 HOME . , , ;.. 

2230 PRINT 

2 2 40 PRINT YI;" ";MI;" ";D1 

- PRINT : PRINT : PRINT : PRINT 

STRJ (MH * 57.29578): GOSUB 1790: GOSUB 2030 

: PRINT : PRINT : PRINT 

2280 PRINT "M = MERCURY, V = VENUS, = SUN" 

2290 DS = MW * 57.29578 

2300 IF FL = AND ABS COS) < 20 THEN D = D + 5: GOTO 2350 

2310 CK = ABS (DS) - ABS {D2) 



2250 PRINT 
2260 MW$ = 
2270 PRINT 



2320 IF CK < .05 AND CK > - 
2330 IF ABS (DS) < 15 THEN 
2340 IF CK < .1 OR CK > - - 
2350 IF D > 30 THEN M = M + 
2360 IF M > 12 THEN M = 1: Y 
2370 D2 = DS:FL = 1 
2380 GOSUB 1340 

GOTO 2190 

HOME : PR INT : PR INT : 



.05 THEN 2400 
D = D + 5: GOTO 2350 
1 THEN D = D + 1 : GOTO 2350 
1 : D = D - 30 
= Y + 1 



2390 
2 4 00 
2410 
2420 
2430 



";D 



IF 

IF AS 

PRINT 

INPUT 

IF ES 



IF A$ 
PR INT 
INPUT 
IF AJ 
IF AS 



AS 

GOTO 2530 
GOSUB 440 

: A$ 



PRINT 
PRINT "NEXT ELONGATION OF MERCURY ";Y;" ";M, 

IF^Ui < o'^THEN PS = "EAST OF SUN (AN EVENING STAR)": GOTO 2450 
2440 PS = "WEST OF SUN (A MORNING STAR)" 

2450 PRINT "AND THE PLANET IS " 

PRINT 

PRINT TABC5);P$ 
GOSUB 1980 

INPUT "DO YOU WANT MORE DETAILS Y/N? 
AS = "N" THEN HOME : PRINT 
■■Y" THEN HOME : PRINT 
GOSUB 1980: PRINT 
DO YOU WANT ANOTHER DATE Y/N? 
"2" AND AS = "Y" THEN GOTO 2620 
Jf ES = "1" AND A$ = "Y" THEN GOTO 2170 

< > "N" THEN PRINT "INVALID RESPONSE": PRINT 
: PRINT 

"DO YOU WANT ANOTHER PLANET Y/N' 
= "Y" THEN GOTO 2110 

< > "N" THEN PRINT "INVALID RESPONSE": PRINT 

GOTO 880 

HOME : GOSUB 1200: REM GET DATE 
2630 FL = ^„„^„ 

2640 GOSUB 1360: REM CALC DAYS FROM EPOCH 
2650 GOSUB 930: REM CALC FOR EARTH AND PLANETS 
2660 HOME 

2670 MWS = STRS (MW * 57.29578) 

2680 PRINT 

2690 PRINT 

2700 PRINT 

2710 VWS = 

2720 PRINT 



2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 



: AS 



GOTO 2530 



GOTO 2580 



YI ;" ";M1 ;" ";D I 

: PRINT : PRINT : PRINT : PRINT 
STRS CVW * 57.29578): GOSUB 1790; 
- PRINT : PRINT : PRINT 

SUN" 



GOSUB 2030 



2730 PRINT "V= VENUS, M = MERCURY, S 
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MVENC (continued)- 



2740 VS = VW * 57.29578 

2750 IF FL = AND ABS (VS ) < 45 THEN D = D + 20: GOTO 2800 

2760CK= ABS(VS)- ABS(V2) 

27 70 IFCK<.05ANDCK> -.05THEN2850 

2780 IF ABS (VS) < 40 THEN D = D + 10: GOTO 2800 

2790 IF CK < .1 OR CK > - .1 THEN D = D + 1 : GOTO 2800 

2800 IF D > 30 THEN M = M + 1:D = D - 30 

2810 IFM>12THENM=1:Y=Y+1 

2820 V2 = VS: FL = 1 

2830 GOSUB 1340 

2840 GOTO 2640 

2850 HOME : PRINT : PRINT : PRINT 

2860 PRINT "NEXT ELONGATION OF VENUS IS "-Y-" "-M"" "-D 

2870 MW = VW : PRINT : GOTO 2430 ' ' 

2880 REM SUB FOR PHASES 

2890 PH = 180 - PH * 57.2958 

2900 IF PH > 150 THEN PHS = "THIN CRESCENT" 

2910 IF PH > 120 AND PH < 151 THEN PH$ = "FAT CRESCENT" 

2920 IF PH > 70 AND PH < 121 THEN PH$ = "NEAR HALF" 

2930 IF PH > 29 AND PH < 71 THEN PHS = "GIBBOUS" 

2940 IF PH < 21 THEN PHS = "NEAR FULL" ' „ 

2950 PH = INT C180 - PH) -■''■.■ 

2960 RETURN 
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MERVE 



10 

20 

30 

40 

SO 

60 

70 

80 

90 

100 

110 

120 

130 

UO 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 



HOME 

DEF FN ACO (X) 
PI = 3. 14159:P2 
PR INT 



ATN 
2831 8 



(X / SQR C - X * X + D) + 1.570793 



TAB( 
TABC 
TABC 
TAB( 



PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PR INT 
PR INT 
PR INT 
PRINT 
PRINT 
PR INT 
INPUT 
IF A$ 
IF A$ 
HOME : 
PRINT 
PR INT 
PR INT 
PR INT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
INPUT 
FL = 

HOME : 
F9 = 0: 
INPUT 
PRINT 
INPUT 
IF F L $ 
PR INT 
INPUT 
GOTO 2200 
G0SU8 990 
HOME 
60SUB 
HOME 
MDt = 
VD$ = 
PR INT 
PRINT 
MQS = 
VQt = 
IF ES 
PR INT 
PR INT 
MILES 



MERCURY AND VENUS 



I" 



PRINT : PRINT 

S.": PRINT : PRINT 



PR INT 



; A$ 



TAB( 5>" 

TAB( 5) "I 

TABC 5)" 

PR INT 
TABC 11)"AN ASTRONOMY PROGRAM": 
TABC lOr'BY ERIC BURGESS F.R.A 
TABC 11>"ALL RIGHTS RESERVED BY" 
TABC 11)"S $ T SOFTWARE SERVICE" 
: PRINT 
TABC 13)"JAN. 82 VERSION": PRINT 
TABC 5)""; 
"DO YOU WANT INSTRUCTIONS? Y/N 
= "N" THEN HOME : PRINT : PRINT : PRINT 
< > "Y" THEN PRINT "INVALID RESPONSE": 

PRINT : PRINT : PRINT 
: PRINT : PRINT 
TABC 5)"THIS PROGRAM PLOTS THE POSITIONS" 
5)"0F MERCURY AND VENUS RELATIVE" 
5)"T0 THE SUN AT INTERVALS CHOSEN BY" 
5)"Y0U IN UNITS OF DAYS FOR AS MANY" 
5)"INTERVALS AS YOU REQUEST." 
PRINT 
TABC S)"YOU CAN THEN ASK TO SEE DATA ABOUT" 
TABC 5)"EITHER OR BOTH PLANETS, SUCH AS" 
TABC 5)"CHSTANCE, APPARENT SIZE,& PHASE." 

PRINT : PRINT 
TO CONTINUE PRESS RETURN ";A$ 



: GOTO 
PR INT 



320 
; GOTO 



160 



PR INT 
NT = 1 
"SELECT 
: PRINT 



PR INT 



PR INT 



CDAYS) 



;ND 



FL$ 



INTERVAL 
: PRINT 
SCROLLED DISPLAY? Y/N "; 
= "N" THEN F9 = 1 

PRINT 
HOW MANY INTERVALS? ";NS 



REM GET DISTANCE FROM EARTH 

PRINT : PRINT 
450: GOTO 930 

PRINT : PR INT 
LEFTS ( STRS C6.68 / MO), 5) 
LEFTS C STRS C16.82 / VQ),5) 
"FOR YEAR ";Y;" MONTH ";M;" DAY ";D 
■ < " : PR INT 

LEFTS C STRS CMQ) ,4) 
LEFTS < STRS CVQ> ,4) 
= "2" THEN GOTO 560 

"DISTANCE OF MERCURY IS ";MOS;" A.U." 
TABC 15)"0R "; VAL ( LEFTS C STRS (MQ 



PRINT 



* 92. 9), 5));" MILLION 
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■ MERVB (continued) ■ 



550 
56D 
570 

580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 

700 

710 

720 

750 

7A0 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

102 

1030 

1040 

1050 

1060 

1070 



IF E$ 
PRINT 
PR INT 
MILES' 
PRINT 

MW$ = 

VWS = 
IF E$ 
PRINT 
PRINT 
GOSUB 
PRINT 
IF E$ 
PR INT 
PRINT 
IF E$ 



= "1" THEN GOTO 580 
"DISTANCE OF VENUS IS 
TAB( 15r'0R "; VAL f 



"; VQ J; " 
LEFT$ C 



A. U.' 
STR$ 



CVQ * 92. 9), 5));" MILLION 



C STR$ (MW 
( STR$ (VW 
THEN GOTO 



LEFTS 
LEFTS 
= "2" 
"MERCURY 
" OEG" 
2710 

TABC 2)"(L0CATED 
= "1" THEN PRINT 
"ANG. DIST 
" DEG" 
= "3" OR VAL 



* 57. 

* 57, 
670 



29578), A) 
29578), 4) 



ANG . DIST . FROM SUN IS 



I M W $ ; 



';AP$; ' 
GOTO 



FOR 
700 



VIEWING)" 



OF VENUS FROM SUN IS ";VW$; 



CONTINUE 



■A$: HOME 



(SD$) = 
: PRINT 



3 THEN INPUT "PRESS RETURN TO 



= "2" THEN 
"ANG. DIAM. 
" ARCSEC" 
" CAT INFER 
- "1" THEN 

"ANG. DIAM. 
" ARCSEC" 

(AT INFER 



GOTO 760 
OF MERCURY 



IS 



CONJ . 
GOTO 



DIAM, 
790 



; M D S ; 
IS 12 ARCSEC)" 



OF VENUS IS ";VD$; 

. CONJ. DIAM. IS 61 ARCSEC)" 



GOSUB 2520 



IS ";PH$ 
ILLUMINATED" 



IF E$ 
PRINT 
PR INT 
PRINT 
IF E$ 
PR INT 
PR INT 
PR INT 
PR INT 
PR JNT 
PH = ABS (MW) + ABS (MZ) : 
IF E$ ■= "2" THEN GOTO 860 
PR INT "MERCUR Y 'S PHASE 
PRINT TABC 5)PH;" DEG 
PRINT 

IF E$ = "1" THEN GOTO 890 
PH = ABS (VW) + ABS (ZV): GOSUB 2520 
PRINT "PHASE OF VENUS IS ";PH$ 
PRINT TABC 5);PH;" DEG. ILLUMINATED" 
PRINT 

GOSUB 1920 
GOSUB 2100 
RETURN 

PRINT : INPUT "WANT ANOTHER DATE? ";A$ 
IF A$ ^ "N" THEN HOME : GOTO 980 

IF At < > "Y" THEN PRINT "INVALID RESPONSE": PRINT 
HOME : PRINT : PRINT : PRINT 
GOTO 320 
END 
REM FIND ANGULAR DIAM 

HOME :PRINT :PRINT :PRINT 

GOSUB 1290: REM ENTER DATE 

GOSUB 1480: REM CALC DAYS FROM EPOCH 

REM CALC DIST. FROM EARTH 

REM AND ANG. DIST. FROM SUN 
AE = NI * .017202 + 1.74022 

IF AE > P2 THEN AE - CCAE / P2) - INT 

IF AE < THEN AE = AE + P2: GOTO 1070 



GOTO 930 



CAE / P2) ) * P2 
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■MERVE (continued)- 



1080 

1090 

1100 

1110 

1120 

1130 

11A0 

1150 

1 160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

13A0 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1 500 

1510 

1520 

1530 

1540 

1550 

1560 
1570 
1 580 
1590 
1600 
1610 



CE - ,032044 * SIN (AE - 1.78547) 
AE = AE + CE 
IF AE > P2 THEN AE = AE - P2 
IF AE < THEN AE = AE + P2: GOTO 1110 
DE = 1 + .017 * SIN (AE - 3.33926) 

GOSUB 1590: REM CALC MERCURY'S POSITION 
MZ = AE - MA 
ZM = MZ 

PI AND MZ < THEN MZ = MZ 
PI AND MZ > THEN MZ = MZ 
FROM EARTH 

2+DE"2-2*MD*DE* 
MQ) / 2 
DIST. FROM SUN 



IF 

IF 

REM 
MQ = 
MP = 

REM 
MV = 
MW ^ 

IF 

IF 

IF 



ABS (MZ) > 

ABS (MZ) > 

CALC DIST 

SQR (MD " 

(MD + DE + 

CALC ANG 



P2 
P2 



COS (MZ)) 



SQR ((MP * (MP 
2 * FN ACO(MV) 
ABS (ZM) > Pi AND ZM < 
ABS (ZM) > Pi AND ZM > 
ZM > THEN MW = - MW 



MD) ) / (DE * MQ)) 



THEN ZM 
THEN ZM 



ZM 
ZM 



+ P2 
- P2 



GOSUB 1690: REM CALC VENUS'S POSITION 

RETURN 

REM ENTER DATE 



PR INT 

PR INT 

INPUT 

IF Y = 

IF Y > 

PRINT 

IF A$ 

I F A$ 

IF A$ 

PR INT 

IF M = 

PR INT 

IF D = 

IF M = 

HOME 

REM STORE 
YI = Y :MI = 

RETURN 

REM CALC 
DG = 365 * 

IF M > = 

REM CALC 
DG = DG + 

GOTO 1560 

REM CALC 
DG = DG - 

INT ( ( . 
NI = DG 

RETURN 

GOTO 420 

REM CALC MERCURY'S POSITION • 
MA = NI * .071425 + 3.8494 

IF MA > P2 THEN MA = ((MA / P2) 



PR INT 



PRINT 



PRINT 
ENTER THE DATE" : PR INT 

THE YEAR ";Y$:Y = VAL (Y$) 
THEN PRINT "INVALID RESPONSE 
1800 THEN GOTO 1390 

";Y;" THE CORRECT YEAR? ": INPUT AS 

"Y" THEN GOTO 1390 
> "N" THEN PRINT "INVALID RESPONSE" 

"N" THEN GOTO 1320 

INPUT " THE MONTH ";M$:H = VAL (MS) 
OR M > 12 THEN PRINT "INVALID RESPONSE": 

INPUT " THE DAY ";OJ:D = VAL (Dt) 
OR D > 31 THEN PRINT "INVALID RESPONSE": 
2 AND D > 29 THEN PRINT "INVALID RESPONSE" 



INIT lAL DATE 
M : DI = D 



GOTO 1320 



GOTO 1350 



PRINT 



PR INT 
: PRINT 



GOTO 1390 



GOTO 1410 
; GOTO 1410 



DAYS FROM EPOCH 
Y + D + ( <M - 1 ) ' 
3 THEN GOTO 1 540 
FOR JAN OR FEB 
INT ( (Y - 1 ) / 4) 



31) 



INT (C.75) * INT ((Y - 1) / 100 + 1)) 



FOR 
INT 
75) 



MAR THRU DEC 

(M * .4 + 2. 3) + 

* INT ((Y / 100) 



INT (Y 
+ 1)) 



/ 4) 



715875 



INT CMA / P2) ) * P2 
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MhRVt (continued)- 



1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1 980 

1 990 

2000 

2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
21 20 
2130 
2140 
2150 
2160 



IF MA < THEN MA = HA + P2: GOTO 1620 
MC = .388301 * SIN (MA - 1.34041) 
MA = MA + MC 

IF MA > P2 THEN MA = MA - P2 

IF MA < THEN MA = MA + P2: GOTO 1660 
MD = .3871 + .079744 * SIN CMA - 2.73514) 

RETURN .fjji«+j 

REM CALC VENUS'5 POSITION 

VA = NI * .027962 + 3.02812 
IF VA > P2 THEN VA = C(VA / P2) - 
IF VA < THEN VA = VA + P2: GOTO 1720 

VC = .013195 * SIN (VA - 2,28638) 

VA = VA + VC 
IF VA > P2 THEN VA = VA - P2 
IF VA < THEN VA = VA + P2: GOTO 1760 

VD = .7233 + .00506 * SIN fVA - 3.85017) 
AE - VA 



INT CVA / P2)) * P2 



ZV = 
VZ = 

IF 

IF 

REM 
VQ = 
VP = 

REM 
VV = 
VW = 

IF 

IF 



ZV 

ABS (ZV) > 

ABS (ZV) > 



PI AND ZV 
PI AND ZV > 



CALC DIST FROM EARTH 
SQR (VD ' 2 + DE " 2 - 

CVD + DE + VQ) / 2 
CALC ANG DIST FROM SUN 
SQR (CVP * (VP - VD)) 

2 * FN ACO(VV) 

ABS (VZ) > PT AND VZ < 

ABS CVZ) > PI AND VZ > 
D THEN VW 



THEN ZV = ZV 
THEN 2V = ZV 



P2 
P2 



VD 



t>E * COS (ZV) ) 



/ (DE * VQ) ) 



- VW 



IF VZ > 

RETURN 

REM SHOW SUN AND PLANETS 
ZKO) = HW$ + "M" :Z$(1 ) = VW$ 
Z$(2) = STR$ (0) + "0" 

FOR I = TO 2 
U$(I) = '■999- 

NEXT I 
K = 

FOR I = TO 2 

IF Z$(I) = "999" THEN 

FOR J = I TO 2 

IF Z$(J) = '■999- THEN 

IF VAL (2$(J)) < VAL 

NEXT J 
UJ(K> = Z$(I) :Z$(I) = •■999" 
K = K + 1 
I = - 1 

NEXT I 



THEN VZ = VZ 
THEN VZ = VZ 



+ P2 
- P2 



+ "V" 



GOTO 2080 

GOTO 2040 
(2$(I)) THEN I = 



GOTO 2040 



RETURN 
PRINT ' 
PRINT 

Ml = 20 
PR INT 

M2 = 20 
PR INT 

M3 = 20 



VISUAL CONFIG. RELATIVE TO SUN" 



+ .8 * VAL ( LEFTS (U$(0>-5)) 

TAB( Ml); RIGHTS (U$(0),1); 

+ .8 * VAL ( LEFTS (U$C1 ),5)) 

TAB( M2); RIGHTS (U$(1),1); 

+ . 8 * VAL ( LEFTS (UI{2) ,5)) 



/ 2 



/ 2 



/ 2 
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MERVE (continued)- 



2170 

2180 

2190 

2200 

2210 

2220 

2230 

22AO 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

242D 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2 520 

2530 

2540 

2 5 50 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 
2640 
2650 
2660 
2670 

2680 



PRINT TABC M3); RIGHTS CU$(2),1) 
PRINT 
RETURN 

HOME : REM ROUTINE FOR ELONGATIONS 
GOSUB 2220 

HOME : GOSUB 1290: REM GET DATE 
FL = 
GOSUB 1480: REM CALC DAYS FROM EPOCH 



GOSUB 1030:VWS = STR$ CVW 



STR$ CMW 
= 1 THEN 
"DISPLAY 



= NS 
= NS 
= NS 



MW$ = 

IF F9 

PR INT 

IF NT 

IF NT 

IF NT 

PR INT 
D = D + ND 

GOSUB 2610 
Y I ^ Y : D I = 
FL = 1 : NT = 

GOTO 2240 

GOSUB 450 

IF SD$ = "3" 



THEN 
THEN 
THEN 



D :MI 
NT + 



57. 29578) 

57.29578): GOSUB 1920 
HOME : PRINT : PRINT : PRINT 
;NT;" IS DATE ";YI;" ";MI;" ' 

PR INT : PR INT 

GOSUB 2800 

HOME : GOTO 2390 



;D I : PR INT 



GOSUB 2110 



THEN E$ 



IF OP ^ 1 THEN OP = 0: 



"":SD$ = ' 
GOTO 2480 



PRINT 



GOTO 2480 



INPUT "WANT THE OTHER PLANET? Y/N 



; AS 

"2":A$ = 
"1":A$ = 



IF AS = "Y" AND E$ = "1" THEN E$ 

IF A$ = "Y" AND ES = "2" THEN E$ 

IF A$ < > "N" THEN PRINT "INVALID RESPONSE": 

PRINT : INPUT "WANT BOTH PLANETS? Y/N ";A$ 

IF AS ^ "Y" THEN ES = "3":0P = 1: GOSUB 450:E$ 



GOSUB 450: GOTO 2460 
GOSUB 450: GOTO 2460 
PR INT : GOTO 2420 

= "":0P = 



INPUT "DO YOU WANT ANOTHER DATE? Y/N 



: AS 



IF A$ = "Y" THEN GOTO 320 

IF AS < > "N" THEN PRINT "INVALID RESPONSE" 

HOME : GOTO 980 

REM SUB FOR PHASES 



PRINT 



GOTO 2480 



PH - 180 
IF PH > 
IF PH > 
IF PH > 
IF PH > 
IF PH < 
PH = INT 
RETURN 
REM SUB 
IF Y / 4 
= 1 

M > 12 
LY = 1 
LY = 
D < 31 
<M = 4 
GOTO 2630 
IF D > 31 



-PH*57.2958 

150 THEN PHS = "THIN CRESCENT" 

120 AND PH < 151 THEN PHS = "FAT CRESCENT" 



70 AND PH < 121 THEN PHS 

29 AND PH < 71 THEN PHS = 

30 THEN PHS = "NEAR FULL" 
(180 - PH) 



: "NEAR HALF" 
"GIBBOUS" 



FOR MONTH 
INT CY 



END ADJUSTS 



/ 4) 



AND Y / 100 



INT (Y / 100) < > THEN 



LY 
IF 
IF 
IF 
IF 
IF 



THEN M = M - 1 2 : Y 
AND M = 2 AND D > 
AND M = 2 AND D > 
GOTO 2700 
OR M = 6 OR M 

THEN M = M + 1 : D 



29 THEN M = 
28 THEN M = 



29: 
28: 



GOTO 2660 
GOTO 2660 



9 0RM=11)THENM=M+1:D 



31 : GOTO 2630 



30: 
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MERVEfcont/nued)- 



M 



12: Y = Y 



2690 IF M > 12 THEN M 

2700 RETURN 

2710 REM SUB FOR VIEWING MERCURY 

272D MX = VAL <MW$) 

2730 APS = "" 

13 AND M > 7 ANt) M < 
1 8 AND M > 7 AND H < 



2740 
2750 
2760 
2770 



IF MX 

IF MX 

IF MX 

IF MX 



- 13 AND 

- 18 AND 



AND M 
AND M 



12 THEN AP$ = 

12 THEN AP$ = 

< 7 THEN AP$ 

< 7 THEN APS 



GOTO 2790 
2780 APS = "UNFAVORABLY" 
2790 RETURN 

PRINT "SELECT DETAILS FOR DISPLAY" 

INPUT "MERCURY (1); VENUS (2); OR BOTH (3) ' 

IF VAL (SDS) = 3 THEN RETURN 
E$ = SDS: RETURN 

PRINT "INVALID RESPONSE": PRINT : GOTO 2800 



"FAVORABLY": GOTO 2790 
"VERY FAVORABLY": GOTO 2790 
- "FAVORABLY": GOTO 2790 
= "VERY FAVORABLY": 



2800 
2810 
2820 
2830 
28A0 



SDS 




Photo Credit: NASA/jet Propuhiun Ldboratory 



The closest planet to the Sun, Mercury has a Moon-like, heavily-cratered surface, first 
revealed by the spacecraft Mariner 1 0. Mercury is so difficult to observe from Earth that 
prior to the space mission no definite details had been identified on its surface. This 
photograph shows one hemisphere of the planet with the large impact basin Caloris 
half illuminated by the Sun. The feature is just below the middle of the curved ter- 
minator on the right of the image. The terminator is the boundary between day and 
fvght on the planet. 
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Program 14: PRISE 



Times of Rising and Setting of Mercury and Venus 
before or after the Sun for Any Date 



Because ofthe inclination ofthe ecliptic tothe celestial equator, there 
are times ofthe terrestrial year when Venus and Mercury are configured 
more easily for observation; that is, when they rise before the Sun or set 
after the Sun with sufficient time for observation in a dark sky. In the North- 
ern Hemisphere, spring is the best time to observe either of these planets 
as an evening star. Fall is the best time to observe them as morning stars. 
During spring the ecliptic makes a large angle with the western horizon 
after sunset. In fall it is inclined at a large angle to the eastern horizon before 
sunrise. Opposite conditions apply for the Southern Hemisphere. 

This program calculates for Venus and Mercury the approximate 

number of minutes between sunset and planet set and between sunrise 

and planet rise for any given date, longitude, and latitude. It also indicates 

whether the planet is a morning or an evening star. Used with RISES and 

MVENC, this program helps you select the best times to observe Venus 

and the elusive planet Mercury. A typical display generated by this program 
appears in Figure H.l. 

The listing Is set for a given longitude and latitude. You can change this 
when you key in the program by altering line 80 to your local coordinates. 
You can also change these coordinates during the running of the program 
if you wish— to a vacation observing site, for example. 

The program calculates the right ascension and declination of the 
planets and ofthe Sun. From the right ascension difference (instruction 
1820), the difference in declination (instruction 1810), and the latitude of 
the observing site (LA), it calculates the time differences at the horizon (in- 
structions 1700 through 1830). 

The listing for the PRISE program follows. 
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DATA REQUESTED FOR 1382 J 1 



HERCURY IS AN EUENING STAR 
SETTING 48.5 MINUTES AFTER THE SUN 



UENUS IS AN EUENING STAR 
SETTING 112. MINUTES AFTER THE SUN 



WANT ANOTHER DATE Y/N? 



For good observation it is important to know how long after the Sun Venus or Mercury sets, or 
how soon they rise before the Sun. The program PRISE gives this information in the display 
format shown. 



Figure 14.1- 
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■PRISE 



SQR ( - X * X + 1) 




/ SQR C - X * X + 1 ) ) + 1 


5707963 


CX) 




(X3 




AND LATITUDE IN FOLLOWING 


STATEMENT 



^0 HOME : PRINT : PRINT 

30 DBF FN ASNCX) = ATN CX / 

40 DEF FN ACOCX) = - ATN CX 

50 DEF FN RAOCX) = .01745328 ■■ 

60 DEF FN DEG(X) = 57.29578 * 

70 REM INSERT LOCAL LONGITUDE 

aO LO = 122.49:LA = 38.24 

90 PRINT : PRINT : PRINT : PRINT ■ . 

100 PRINT TABC 1 > " AST RONOM Y PROGRAM": PRINT - . • •.;■:.- 

110 PRINT TABC 9)" " 

120 PRINT TABC 9)"I INNER PLANETS I" ; .. 

130 PRINT TABC 9)"I TIMES FROM SUN I" - . '. ; ^. ■ 

140 PRINT TABC 9)" " ' . - ... 

1 50 PRINT - ■ -^ - ■ ■, ■ ■ 

160 PRINT TABC 7) "BY ERIC BURGESS F.R.A.S." . -:--''. 

1 70 PR INT .•.■■"- 
180 PRINT TABC 7)"ALL RIGHTS RESERVED BY" ' ■. ■ ■ 
190 PRINT TABC 7)"S ST SOFTWARE SERVICE" 

200 FOR J = 2000 TO 1 STEP - 1: NEXT J . . ■ ,-^ ' 

210 HOME:PRINT:PRINT:PRINT •■. : 

220 PRINT : PRINT : PRINT : PRINT . . .. . 

2 30 PRINT "THIS PROGRAM GIVES APPROXIMATE" • ., .. ., . 1 
24 PRINT "TIME IN MINUTES THAT MERC OR Y AND" ■•■ ■ -.:.'. 
250 PRINT "VENUS RISE BEFORE THE SUN AS" ■.■•,■■; ,; 
260 PRINT "MORNING STARS, OR SET AFTER THE" 

2 70 PRINT "SUN AS EVENING STARS, FOR ANY DATE" .■■ ■.:■■. 

280 PRINT " WHICH YOU INPUT" ' ■' ." '•, : ' ' .• 

290 PR INT : PRINT ' • .. - ' ■"~" 

300 PRINT "INITIAL CONDITIONS ARE SET FOR ." ', ' ' ' ■ , ^' - 

310 PRINT TABC 5 > " SEB ASTOPO L, CA LONG. 122.49" 

320 PRINT TABC 21>"LAT. 38.24": PRINT 

i30 PRINT : INPUT "WANT TO CHANGE THEM Y/N? ";A$ 

340 IF A$ < > "Y" GOTO 380 

350 HOME : PRINT ; PRINT : PRINT : PRINT 

360 INPOT " GIVE LATITUDE ";LA 

370 INPUT " AND LONGITUDE ";L0 

380 HOME:PRINT:PRINT:PRINT 

390 PRINT "ENTER THE DATE": PRINT 

400 FL = 2 - ■ ■ 

410 INPUT " THE YEAR ? ";YD$:Y = VAL CYD$) 

420 IF Y = THEN PRINT "INVALID RESPONSE": PRINT : GOTO 410 

430 IF Y > 1800 THEN GOTO 490 

440 PRINT "IS ";y;" THE CORRECT YEAR? " 

450INPUT;Y$ ., 

460 IF Y$ = "Y" THEN GOTO 490 

470 IF Y$ < > "N" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 440 

480 IF Y$ = "N" THEN PRINT : GOTO 410 

490 LY = 

500 IF Y / 4 - INT CY / 4) = AND Y / 100 - INT CY / 100) < > THEN 

LY = 1 
5i1U PRINT : INPUT " THE MONTH? ";MD$:M = VAL CMDS) 
520 IF M = OR M > 12 THEN PRINT "INVALID RESPONSE": PRINT ; GOTO 490 
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-PRISE (continued)- 



530 


PRI 


540 


I F 


550 


IF 


560 


IF 


570 


IF 


580 


DX = 


590 


D = 


600 


IF 


610 


IF 


620 


IF 


630 


IF 




GOT 


640 


IF 


650 


IF 


660 


REM 


670 


REM 


680 


DG = 


690 


IF 


700 


REM 


710 


DG = 


720 


GOT 


730 


REM 


740 


DG = 


750 


NI = 


760 


GOS 


770 


REM 


780 


IF 


790 


RES 


800 


DIM 


810 


FOR 


820 


REA 


830 


NE X 


840 


REM 


850 


DAT 


860 


DAT 


870 


REM 


880 


DAT 


890 


DAT 


900 


REM 


910 


DAT 


920 


DAT 


930 


FOR 


940 


DAT 


950 


F = 


96 


REM 


970 


HOM 


980 


PRI 


990 


PRI 


1000 


PR 


1010 


PR 


1020 


FO 


1030 


A(I 


1040 


I = 


1050 


FO 



NT : INPUT " THE DAY? ";DD$:D = VAL (DOS) 

D = OR > 31 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 530 

M < > 2 THEN GOTO 580 

LY = AND D > 28 THEN PRINT "INVALID RESPONSE": PRINT ; GOTO 53 

LY = 1 AND D > 29 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 53 

D :MX = M : YX = Y 
D + CLO / 1 5) / 24 

CLY = 1 AND M = 2 AND INT (D) > 29) THEN H = 3:D = D - 29: GOTO 
(LY = AND M = 2 AND INT (D) > 28) THEN M = 3:D = D - 28: GOTO 
D < 31 GOTO 660 

CM = 4 OR R = 6 OR M = 9 OR M = 11 ) THEN M = M + 1:D = D - 30: 
660 

INT (D) > 31 THEN M = M + 1:D = D - 31 
M = 1 3 THEN M = 1 : Y = Y + 1 
CALC DAYS TO DATE REQUESTED 
FROM 1960,1,1 EPOCH 

365 * Y + D + CM - 1 ) * 31 
M > =3 THEN GOTO 730 
CALC FOR JAN OR FEB 

DG + INT (CY - 1) / 4) - INT C(.75) * INT CCY - 1) / 100 + 1)) 
750 

CALC FOR MAR THRU DEC 

DG - INT (M * .4 + 2.3) + INT CY / 4) 
INT (C.75) * INT (CY / 100) + 1)) 

DG - 71 5875 
UB 1620: REM GET SIDEREAL TIME 

INPUT OF ORBIT DATA FOR PLANETS 
F = 1 THEN GOTO 950 
TORE 

PDC3,9) 

YY = TO 2: FOR XX = TO 8 
D PD CYY,XX ) . • . 

T XX, YY 

MERCURY 
A .071422, 3. 84 84,. 388301, 1.34041,. 3871,. 07974, 2. 73 514 
A .12223,-836013 

VENUS 
A .02 79 62, 3. 02 81 2,. 01 31 95, 2. 28638,. 72 33,. 00 506, 3. 85 01 7 
A .059341,1.33168 

EARTH 
A ,017202,1 . 74 02 2,-032044,1 . 78 547,1, .017,3.33926 
A 0,0 

I9=1T0 3:READP$CI9):NEXTI9 
A MERCURY, VENUS, SUN 
1 

CALC DATA FOR PLANETS 
E 

NT : PRINT : PRINT 

NT "DATA REQUESTED FOR ";YX;" ";MX;" ";DX 
INT : PRINT : PRINT 
INT : I = 1 

R J = TO 2: GOSUB 1230 
)=A:DCI}=DS:LCI)=L 

I + 1 : NEXT 
R I = 1 TO 2 



660 
660 



PROGRAM 14: PRISE 
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■PRISE (continued)- 



1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1U0 

11 50 
1160 
1170 
1180 
1 190 
1200 
1210 
1220 
1230 

12 40 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
154 
1550 
1560 
1 570 
1580 
1590 
1600 



REM SKIP EARTH 

IF I = 3 THEN NEXT 

GOSUB 1370 
Qd) = Q:X(I) = X:R(I) = R:V(I) = V 

NEXT 

FOR K = 1 TO 2 
I = K :ACI) = FN DEGCAd)) 

GOSUB 1710 



. PRINT : PRINT 
'WANT ANOTHER DATE 
= "Y" THEN GOTO ' 



Y/N? 
380 



NEXT 

PRINT 

INPUT 

IF AJ 

IF A$ 

HOME 

END 

REM CALC POSITION DATA 

CALC HELIOCENTRIC LONGITUDE 
f J . fl) + P n C.I 1 1 



";A$ 



"N" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 1160 



REM 



A = NI * PDCJ,0) + PD(J,13 

IF A > 6.28518 THEN A = {(A 

IF A < THEN A = A + 6.28318 
C = PDCJ,2> * SIN CA 
A = A + C 

IF A > 6,28318 THEN A 

IF A < THEN A = A + 

REM CALC PLANET DIST 
DS = PDCJ,4) + PD{J,5) 

REM CALC DIST 
L = PD(J,7) 

RETURN 



6.28318) - 

GOTO 1250 

P D ( J , 3 ) ) 



INT (A / 6.28318)) * 6.28318 



= A - 6.2831 8 
6. 2831 8: GOTO 1 290 
FROM SUN 

* SIN (A - PD(J,6)) 
FROM ECLIPTIC 
SIN (A - PD(J,8)) 



K t I UK N 

REM CALC PLANETARY DATA 
REM CALC ANG DISTANCE FROM 
= A C 3 ) - A (I ) 

141 59 AND 
14159 AND 



Z = A C 3 ) - A (I ) 
(Z) > 3 
(Z) > 3 



EARTH 



IF ABS (Z) > 3.14159 AND Z < THEN Z = Z 

IF ABS (Z) > 3.14159 AND Z > THEN Z = Z 

REM CALC DISTANCE FROM EARTH 
Q = SQR (0(1) - 2 + DC3) " 2 - 2 * DCl) * 

REM CALC ANG DISTANCE FROM SUN 
P = CD(I) + D(3) + Q) / 2 
X = 2 * FN ACO( SQR ( ( (P * (P - D(I))) / ( 

REM CALC RA OF PLANET 



+ 6.28318 
- 6.28318 

D(3) * COS CZ)) 



P = 

X = 2 
REM 
IF Z 
IF Z 
If R 
IF R 
IF R 



CALC RA OF 

< THEN R 

> THEN R 

> 2 4 THEN 
< 

< 



REM 
IF Z 
IF Z 



= FN 
R = R 
24 THEN R = R + 
^ u THEN R = R + 24 : 
CALC DEC LINATION 
< THEN V - " - 
> THEN V = 
X ^ FN DEG(X) 
R(3) = FN DEG(A(3) 
IF R (3) > 24 THEN 
IF R (3) < - 24 THEN 
IF R (3) < THEN R (3) 
V(3) = SIN CAC3) 
RETURN 



PLANET 

FN DEG(A(3) + 3.14159 

""■ DEG(A(3) + 3.14159 

24; GOTO 1480 

24: GOTO 1490 
GOTO 1500 



(D C3) * Q3> )) 



X) 
X) 



1 5 
1 5 



SIN 
S IN 



CAC3) 
(AC3) 



3.14159 
3.14159 



X) 
X) 



23.44194 
23.44194 



+ FN DEG(L(I)) 
+ FN DEGCLd)) 



+ 3. 14159) / 15 
R(3) = R (3) - 24; 
R(3) = R (3) + 
- = R C3) + 24 
3. 141 59) * 23.44194 



GOTO 1560 
24: GOTO 1570 
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■PRISE (continued)- 



1610 


RETURN 






1620 


REM CALC SIDEREAL TIME 






1630 


GC = 11 .927485 






1640 


TC = .065711 






1650 


T2 = TC * CNI - 7020) + GC 






1660 


IF T2 > 24 THEM T2 = T2 - 24: GOTO 1660 






1670 


IF T2 < - 24 THEN T2 = T2 + 24: GOTO 1670 






1680 


IF T2 < THEN T2 = T2 + 24 






1690 


RETURN 






1700 


REM GET TIME DIFFERENCES 






1710 


A1 = SIN ( FN RAD(VC3))) * SIN ( FN RAD(LA>) 






1720 


IF A1 < THEN A1 = ABS (AD: GOTO 1740 






1730 


IF A1 > THEN A1 = - Al 






1740 


A1 = CA1 - .01454) / COS C FN RADCLA)) 






1750 


Al = Al / COS C FN RAD CV (3))) 






1760 


B1 = SIN { FN RADCD(I))) * SIN ( FN RAD(LA)> 






1770 


IF B1 < THEN B1 = ABS (Bl ) : GOTO 1790 






1780 


IF B1 > THEN Bl = - 01 






1790 


Bl = (Bl - .00989) / COS C FN RAD(LA)) 






1800 


B1=B1/-C0SCFNRA0(V(I))) 






1C10 


C1=4*CA1-B1) 






1820 


D1 = 60 * CR t3) - R (I)) 






1830 


Ml = CI + D1 






1840 


REM ADJUST FOR RA PASSING ZERO 






1850 


IF Ml > 720 THEN Ml = Ml - 1440: GOTO 1870 






1360 


IF Ml < - 720 THEN Ml = Ml + 1440 






1870 


IF Ml < THEN ASS = "AN EVENING STAR ":MSS 


= "SETTING":BA$ = 


" AFTER" 


1880 


IF Ml > THEN ASS = " A MORNING STAR ":MS$ 


= "RISING ":BA$ = 


" BEFORE 


1890 


Ml = ABS CM1) 






1900 


M1$ = LEFTS ( STR$ (Ml), 4) 






1910 


PRINT P$(I);" IS ";AS$ 






1920 


PRINT " ";MS$;" ";M1$;" MINUTES ";BA$;" THE 


SUN" 




1930 


PRINT : PRINT : PRINT 






1940 


RETURN 







\ 




Pholo Credit: NAiA/let Propukion Lahoratwy 

When inspected at close hand from spacecraft, all the planets of the solar system have 
proved to be quite different from what was anticipated. Mars has intriguing features, 
many of which cannot be easily explained. This picture from the Viking Orbiter s/iows 
an interesting area of hills and valleys with streamlike channels at the bottom of many of 
thevalleys. Thercgion has very few craters and is believed to be geologically young, ttis 
located in the Nilosyrtis region of the planet. 
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Program 15: RISEI 



Times of Rising, Transit, and Setting of Planets, Sun, 
and Moon for Any Date 



Observing the risings, transits, and settings of the Sun, Moon, and 
planets occupied generations of ancient astronomers. They painstal<ingly 
sighted on these objects through window slits, by stone monuments and 
obelisks, and in more primitive societies, by arrangements of sticks. 
Because of the inclination of Earth's orbit and the complex motions of the 
planets, such observations were not easy. It took many years to accumulate 
sufficient data for the priest-astronomers to make realistic predictions. Ex- 
amples of the ancient horizon-scanning observatories are found 
worldwide, indicating the importance many civilizations attached to 
knowing the motions of the heavenly bodies. Their observations had 
religious, astrological, and agricultural significance. 

Today a personal computer and this program can give you such data 
with reasonable accuracy almost instantaneously. The only things you 
have to do are provide it with a date and choose the Sun, the Moon, or a 
planet. This program calculates the approximate time of rising, transit, 
and setting of any of these bodies for any date, at any latitude and 
longitude. Times of actual visibility after rising and before setting depend 
on local horizon and atmospheric conditions as well as on the rate of rising 
and setting— that is, the body's position on the ecliptic relative to the 
latitude of the observer. The Sun and Moon, because of their brightness, 
are often visible sooner after rising and closer to setting than are the 
planets. A typical display generated by this program is shown in Figure 15.1. 

The program loads data on the planetary orbits, as did Program 11, 
and calculates for each planet its right ascension and declination atthe re- 
quested date. It displays these data for the selected planet together with its 
distance from Earth and its angular distance from the Sun. The program 
uses the calculated sidereal time for the chosen date together with the 
latitude to calculate the rise, transit, and set times of the first point of Aries 
(subroutine 2480). From this the program calculates the local times when 
that point in the celestial sphere with the right ascension and declination 
of the planet rises above the horizon, culminates, and sets below the 
horizon at the observer's location. • <. - - - 
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CELESTIAL BASIC 



MOON^DgTft^R||UESTEDFOR^...^ 



SETS AT 



1 HR 10 MIN 
7 HR 4 MIN 
13 HR 4 MIN 



WANT ANOTHER PLANET, SAME DATE Y/N? 



The program RiSES displays the times of rising arid setting for a planet, the Sun, or the Moon 
on a selected date. 



Figure 15.1 



The basic equations are: 

Sidereal Rise Time = RA - (1/15) X arccos[tan(lat) X tan(dec)] 

Sidereal Transit Time = RA 

Sidereal Set Time = RA + (1/15) X arccos[tan(lat) X tan(dec)] 

Starting at instruction 2690, the program calculates the right ascension 
and declination of the Moon. It calculates the Moon's rise, culmination, 
and set times by using the 2480 subroutine. 

The listing of the RISES program follows. 



PROGRAM 15: RISES 
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RISES 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

1 50 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

4 60 

470 

480 

490 

500 

510 

520 

530 



HOME : PRINT : PRINT 
PRINT : PRINT : PRINT 
DIM PD (9,9) : DIM IP CI 0) ; 
QC9): DIM X(9): DIM 



DIM 
DE F 
DE F 
OEF 
DEF 
REM 
LO •■ 



DIM 
R(9) 



FN ASN(X) = 
FN ACOCX) = 
FN RADCX) = 
FN DE6(X) = 
INSERT YOUR 
122.49:LA = 

TAB( 

TABC 

TAB ( 

TABC 



ATN (X / 
ATN CX 
.01 745328 
57.299578 



AC9) 

DIM 

SQR ( 

/ SQR 

t CX) 

t (X> 



DIM DS C9) ; DIM L C9) 
VC9) 

- X * X + 1 ) ) 
C - X * X + 1 ) ) 



+ 1.5707963 



PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

FOR J 

HOME 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 

PRINT 

PR INT 

REM CHANGE 

PRINT TABC 



LOCAL LONGITUDE AND LATITUDE IN NEXT LINE 

3 8.24 
8) "ASTRONOMY PROGRAM" 
5).- ■' 

5)"I RISE AND SET TIMES I" 
5).. " 



TABC 5)"BY ERIC BURGESS F.R.A.S." 
: P R I N T • ■ 

TABC 5)"ALL RIGHTS RESERVED BY" 

TABC 5)"S S T SOFTWARE SERVICE" ;. 
: P R I N T 

TABC 7)"VERSI0N APR. 1982" 
= 3000 TO 1 STEP - 1: NEXT J 

PRINT : PRINT : PRINT 
: PRINT ; PRINT 

'THIS PROGRAM GIVES APPROXIMATE TIMES" 
'OF THE RISING, TRANSIT, AND SETTING" 
'OF A SELECTED PLANET, OR THE SUN" 

TABC 13)"0R THE MOON" 
; PRINT : PRINT .■■.-. 

'INITIAL CONDITIONS ARE SET FOR" 



PR INT 
PR INT 
INPUT 
IF AS 
HOME : 
PR INT 
INPUT 
PRINT 
INPUT 
HOME : 
PR INT 
FL ^ 2 
INPUT 
IF Y = 
IF Y > 
PR INT 
INPUT 
IF Y$ 
IF Y$ 
PR INT 



TABC 



"DO 



NEXT TWO LINES TO YOUR LOCAL LAT AND LONG, 
5 ) "SEBASTOPOL, CALIFORNIA" 
5)"L0NGITUDE 122.49; LATITUDE 38.24" 



YOU 
C > "Y 

PR INT 
: PRINT 
'GIVE LATITUDE 



WANT TO CHANGE 
GOTO 430 



THEM Y/N? ";A1 



PRINT 



'AND LONGITUDE 
PRINT : PRINT 
'ENTER THE DATE 



: PRINT 

";LA 

";L0 

: PRINT 

": PRINT 



PR INT 



"THE YEAR ";YD$:Y = VAL CYD$) 
THEN PRINT "INVALID RESPONSE; 
1 800 THEN GOTO 540 
"IS ";Y;" THE CORRECT YEAR? " 
"Y/N ";Y$ 

= "Y" THEN GOTO 540 
= "N" THEN PRINT : GOTO 460 
"INVALID RESPONSE": PRINT : GOTO 



PRINT : GOT0410 



490 
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RISES (continued)- 



540 LY = D 
550 IF Y / 
LY = 1 
PR INT 
IMPUT 
IF H = 
PRINT 
INPUT 
IF C = 
IF M < 
IF LY = 
IF LY 



4 - INT (Y / 4) =0 AND Y / 100 



INT CY / 100) < > THEN 



560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 



THE MONTH ";MD$:in 
OR M > 12 THEN 



VAL (MDS) 
PRINT "INVALID 



RESPONSE" : PR INT 



THE DAY ";DD$:D = 

OR D > 31 THEN 
> 2 THEN GOTO 650 
AND D > 28 THEN PRINT 
= 1 AND D > 29 THEN PRINT 



VAL CDD$) 
PRINT "INVALID RESPONSE" 



PRINT 



INVALID RESPONSE" 
INVALID RESPONSE" 



PR INT 
PRINT 



GOTO 570 



GOTO 600 

: GOTO 600 
: GOTO 600 



GOSUB 2190 
DX = D :MX = 
D = D + CLO 
(LY = 1 
(LY = 
D < 31 



: REM 
M: YX 
/ 15) 
AND K 
AND 

THEN 



TO SELECT PLANET 

Y 
/ 24 
= 2 AND 
M = 2 AND 
GOTO 740 
= 6 OR M 



INT (D) 
D > 28) 



> 29) THEN M 
THEN M = 3:D = 



= 3; 
■■ D ■ 



9 OR M 



720 
730 
740 



770 
780 
790 
800 
810 



1 1 ) THEN M = M 



31 



IF 

IF 

IF 

IF CM =4 OR M 

GOTO 740 

IF INTCD)>31THENM = M + 1: D 

IF M = 1 3 THEN M = 1 : Y = Y + 1 

REM CALC DAYS TO DATE REQUESTED FROM EPOCH 1960,1,1 
750D6=365*Y+D+ (CM-1) *31) 
760 IF M > 2 THEN GOTO 800 

REM FOR JAN AND FE8 
DG = DG + INT C(Y - 1) / 4) - INT ((.75) 

GOTO 820 

REM FOR MAR THRU DEC 
DG = DG - INT CM * .4 + 2.3) + INT CY 

1>) 



D = D - 29: GOTO 740 



28: GOTO 740 



1 : D = D - 30; 



INT C CY - 1 ) / 100 + 1 )) 



820 



/ 4) 
- INT (C.75) * 
NI = DG - 715875 



* .4+2.3) + 
INT ((Y / 100) 



830 


GOSUB 


2400: REM TO GET SIDEREAL TIME CT2) 


840 


IF CI 


= 10 THEN GOTO 2690 


850 


REM 


INPUT OF PLANETARY ORBIT DATA 


860 


IF F 


= 1 THEN GOTO 1210 


870 


RESTORE 


880 


FOR PY = TO 8: FOR PX = TO 8 


890 


READ 


PD(PY,PX) 


900 


NEXT 


PX,PY 


910 


REM 


MERCURY 


920 


DATA 


.071422, 3. 84 84,. 388301, 1.54041 


930 


DATA 


.3871, .07974,2.73514, .12223, .836013 


94 


REM 


VENUS 


950 


DATA 


.027962, 3. 0281 2,. 01 31 95, 2. 28638 


960 


DATA 


.7233,. 00 506, 3. 8501 7,. 059341, 1.33168 


970 


REM 


EARTH 


980 


DATA 


.017202, 1.74 022,. 032044, 1.78547,1 


990 


DATA 


.017,3.33926,0,0 


1000 


REM 


MARS 


1010 


DATA 


.009146,4.51234,-175301,5.85209,1.5237 


1020 


DATA 


.141704,1 .04656,. 031 4 2,. 8 5 8702 


1030 


REM 


JUPITER 


1040 


DATA 


.00 14 5, 4. 53364,. 0904 78,. 2 3 91 1,5. 2028 


1050 


DATA 


.2493 74, 1.761 88,. 01 972, 1.74 533 
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RISES (continued)- 



1060 


REM 


1070 


DATA 


1080 


DATA 


1090 


REM 


1100 


DATA 


1110 


DATA 


11^0 


REM 


1130 


DATA 


1140 


DATA 


1150 


REM 


1160 


DATA 


1170 


DATA 


1180 


FOR 


1190 


DATA 


1200 


DATA 


1210 


F = 1 


1220 


REM 


1230 


HOME 


1240 


PR IN 


1250 


PR IN 


1260 


PRIN 


1270 


IF C 


1280 


IF C 


1290 


PRIN 


1300 


PRIN 


1310 


PRIN 


1320 


PRIN 


1330 


IF F 


1340 


PRIN 


1350 


FOR 


1360 


A(n 


1370 


I = I 


1380 


FOR 


1390 


REM 


1400 


IF I 


1410 


GOSU 


1420 


Q CI ) 


1430 


NEXT 


1440 


I = C 


1450 


Gl$(I) 


1460 


X$(I > 


1470 


R$(I) 


1480 


V$(I) 


1490 


IF I 


1500 


IF I 


1510 


IF I 


1520 


PRIN 


1530 


PRIN 


1540 


PRIN 


1550 


GOSU 


1560 


PRIN 


1570 


TM = 


1580 


TN = 


1590 


TP = 


1600 


PRIN 



SATURN 

.00 05 84, 4. 89884,. 105558, 1.6 10 94, 9. 5385 

.5 34 156, 3. 1257, .043633, 1.9774 58 

URANUS 

.00 0205,2.4661 5,. 088593, 2. 96 706, 19. 182 

.901554,4.4 9084,-01396,1 .28805 
NEPTUNE 

.0001 04, 3. 78 556,. 016 96 5,. 773181, 30. 06 
.27054,2.33498,-031416,2.29162 
PLUTO 

.000069, 3. 16948,. 471 239, 3. 91 303, 39. 44 
9.86,5.231 14, .300197,1 .91 812 
IP = 1 TO 10: READ P$(IP): NEXT IP 
MERCURY, VENUS, SUN, MARS, JUPITER 
SATURN, URANUS,rJEPTUNE, PLUTO, MOON 



CALCULATE DATA FOR PLANETS 
: PRINT : PRINT : PRINT 
"DATA REQUESTED FOR ";YX;" ";MX;" 



SK 

B 1 

^ Q 

I 
I : A 



:DX 



= 3 THEN PRINT TAB( 28) "R. A. DEC" 
= 3 THEN PRINT TA8C 27)"CHRS> (DEG)": GOTO 1320 
DIST ANG.DIST R.A. DEC" 
TO PLANET FROM SUN (HRS) (DEG)" 
TAB( 11)"A.U." 



AP THEN GOTO 1440 
I = 1 

TO 8r GOSUB 1780 

: DS (I ) = OS : L cn = L 
1 : NEXT J 

1 TO 9 
IP EARTH 
3THENNEXTI 
920 

:XCI) = X:RCI) = R:V(I) = V 

(I) = FN DEGCACU) 

LEFTS C STRS CQ (I) ) , 5) 

LEFTS C STRS (X<I)) ,5> 

LEFTS C STRS (R (I)> ,5) 

LEFTS C STRS CV CD) ,5) 
3 THEN PRINT PS(1) TABC 27)RS(3); 
3 THEN PRINT TABC 33)V$C3) 
3 THEN PRINT : GOTO 1540 

SCI) TABC 9)GIS(I) TABC 19)X$CI) TABC 28)RSCI); 
TABC 3 6)V$CI) 



2480: REM 

: PRINT 

* CTR - 

* (TT - 

* CTS - 



GET RISE, TRANSIT SET 



INT 
INT 
INT 



CTR)) 
(TT)) 
(IS)) 



TR = 
TT = 
TS = 



INT (TR) 
INT (TT) 
INT CTS) 
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RISES (continued) 



1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1750 

1 740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1 820 

1830 

1840 

1850 

1860 

1870 

1880 

189 

1 900 

191 

1 920 

1930 

1940 

1950 

1960 

1970 

1 980 

1990 

2000 

2010 

2020 

2030 

2040 

205 

2060 

2070 

2080 

2090 

2100 

2110 

21 20 

2130 

2140 

2150 



PRINT 
PRIMT 
PR INT 
PR INT 
PR INT 
PRINT 
INPUT 
IF AS 
IF A$ 
IF C I 



(P$CI)) )" SETS AT ";TS 



P$ U) " RISES AT 

TABC LEN CP$(I)));" 
INT (TN);" MIN" 
TABC LEN 
INT CTP);" MIN" 
: PRINT 
"WANT ANOTHER 
= "N" THEN 

THEN PRINT 
D = D X:M 

= 3 THEN FL 



'■;TR;" HR ", 
TRANSITS AT 



I^h■ 



(TM);' 
;TT;" 

HR 



' HIN" 
HR "; 



< > 

- 10 



'Y" 
THEN 



PLANET, 
GOTO 1740 



SAME DATE Y/N? ";A$ 

INVALID RESPONSE" : 
MX: Y = YX: GOTO 650 



Y = YX: 
= AP 
GOTO 1740 



PR INT : GOTO 1670 



GOSUB 2200: IF CI = 3 THEN F 

IF CI = 10 THEN GOSUB 2690: 

GOTO 1230 

ANOTHER DATE Y/N? ";A$ 
= 0:F = 0: RESTORE : GOTO 
PRINT "INVALID RESPONSE" 



'WANT 
THEN FL 



IF A$ < 
HOME 



GOTO 1740 



GOTO 1230 

PRINT : INPUT 

IF A$ = "Y" THEN FL = 0:F = 0: RESTORE : GOTO 430 

> "N" THEN PRINT "INVALID RESPONSE": PRINT 
: GOTO 3200 
REMCALCA,DS,ANDL 
REM HELIOCENTRIC L0W6IT0DE CA) 
NI * PD CJ,0) + PDCJ ,1 ) 

A > 6.28318 THEN A = CCA / 6.28318) - INT CA / 6.28318)) * 6.2831 
A < THEN A = A + 6.28318: GOTO 1820 
P [> C J , 2 ) * S I N < A - P D C J , 3 ) ) 
A + C 

6.28318 THEN A = A - 6.28318 

GOTO 1 860 



A = 

IF 

IF 

C = 

A = 

IF 



IF A > 6.28318 THEN A = A - 6. 

IF A < THEN A = A + 6.28318: 

REM DISTANCE OF PLANET FROM SU 
DS = PD CJ,4) + P[><J,5) * SIN C 

REM DISTANCE FROM ECLIPTIC CL 
L = P0CJ,7) * SIN (A - PDCJ, 8) 

RETURN 



SUN 

A 

L) 

) 



CDS) 

- PD CJ,6) ) 



RETURN 
REM CALC 
REM ANG. 
Z = ACS) - 
IF ABS (Z> > 3.14159 AND 2 
IF ABS CZ) > 3.14159 AND Z 
CI = 3 THEN X = 0: GOTO 
SQR (DS CI) " 2 + DS C3) " 
Q) / 2 
DS CI) ) ) 
= .999999 



I F 
Q = 
P = 
AC = 



RA AND DEC 
DIST FROM SUN CZ) 
ACI> 
ABS (Z> > 3.14159 AND 
ABS CZ) > 3.14159 ^ 

= 3 THEN X 
--.,. .1 
(DS CI) + DS C3) 
( C (P * (P 



2040 
" 2 - 



THEN 
THEN 



6.28318 
6.28318 



2 * D5(I) * DSC3) * COS <Z)) 



SGR 



I F AC 
X = 2 
REM R . A. 
IF Z < 

Z 

R 

R 

R 
REM 
IF Z 
IF Z > 
X = FN 
R ( 3 ) = FN 
I F 
IF 



1 THEN AC ■ 
FN ACOCAC) 



/ (DSC3) * Q))) 



IF 

IF 
IF 
IF 



R = FN DE6CA(3) 
R = FN DEGCAC3) 
= R - 24 



THEN 
THEN 
24 THEN R 
- 24 THEN R = R ^ 
THEN R = R + 24: 



3.14159 
3.14159 
GOTO 2060 

24: SOTO 2070 

GOTO 2080 



X> 
X) 



15 
15 



< 



DECLINATION 

■ THEN V = SIN ( A(3) + 
THEN V = SIN ( A(3) + 
DEG CX) 

DEGCA(3) + 3.14159) / 15 
R(3) > 24 THEN RC3) = R(3) - 24: 
RC3) < - 24 THEN RC3) = RC3) + 



3.U159 - 
3.14159 + 



X) 
X) 



23.44194 + 
23.44194 + 



FN DEGCL CI) ) 
FN DEGCL CI) ) 



GOTO 2140 

GOTO 2150 



24: 
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■RISES (continued)- 



2160 IF R(3) < THEN RC3) = R(3) + 24 

2170 VC3) = SIN (A(3) + 3.U1159) * 23 44194 

2180 RETURN 

2190 REM PICK PLANET, SUN, OR MOOfJ 

2200 HOME : PRINT : PRINT 

2210 PRINT : print : PRINT 

2230 PR^N^ "SELECT PLANET, SUN, OR MOON BY NUMBER" 

2240 PRINT TABC 8)"MERCURY I" 

2250 PRINT TABC 8) -VENUS.. ' 2" 

2260 PRINT TAB( 8)" 3 sy^,.. 

2270 PRINT TABC 8)"MARS 4"'"' 

2280 PRINT TABC 8 ) "J U P I TE R . . . 5" 

229U PRINT TABC 8) " S AT URN ...*.'.'.'! 6" 

2300 PRINT TABC 8)"URANUS 7- 

2310 PRINT TABC S)"NEPTUNE .' ! ." 8 " 

23 20 PRINT TABC 8) "PLUTO 9" 

2330 PRINT TABC 8)" * " ' 1 . . . . MOON - 

2340 PRINT 

2350 INPUT "PLEASE SELECT NUMBER .. ";SS$ 

2360 SS = VAL (SS$) 

238? cT^^SS^ ^ "^ ^^ ^ ''" ^"^^ ^^^^^ "INVALID RESPONSE' 

2390 RETURN 

2^00 REM CALC SIDEREAL TIME T2 

2410 GC = 11 .927485 

2420 TC = .065711 

2430 T2 = TC * (NX - 7020) + GC 

2440 IF 72 > 24 THEN T2 = T2 - 24: GOTO 2440 

2450 IF T2 < - 24 THEN T2 = T2 + 24: GOTO 2450 

2460 IF T2 < THEN T2 = T2 + 24 

2470 RETURN 

2480 REM CALC RISE, TRANSIT, AND SET TIMES 

2490 TA = TAN ( FN RADCLA)) * TAN C FN RADCVd))) 

2500 IF TA < THEN TA = ABS (TA>: GOTO 2520 

2510 IF TA > THEN TA = - TA 

2520TA=FNACOCTA) 

2530 TA = FN DEGCTA) 

2540 B = - TA / 15 

2550 TZ = 

2560 TR = CB + R{I) + TZ - T2) * 99727 

2570 TR - TR - 1 / 60 

2580 IF TR < THEN TR = TR + 24 

2590 IF TR > 24 THEN TR = TR - 24 

2600 C = TA / 15 

2610 TS = (C + RCI) + TZ - 72) * 99727 

2620 TS = TS + 3 / 60 

2630 IF TS < THEN TS = TS + 24 

2640 IF TS > 24 THEN TS = 7S - 24 

2650 T7 = R CI) - T2 + 1 / 60 

2660 IF 7T < THEN TT = TT + 24 

2670 IF 7T > 24 THEN TT = TT - 24 

2680 RETURN 

2690 REM CALC RISE, TRANSIT, SET FOR MOON 

2700 HOME : PR int 



PRINT 



GOTO 2190 
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RISES (cont/nuec/j- 



¥ 360: GOTO 2760 
360 
- 360: GOTO 2780 



2710 REM RA AND DEC OF MOON 

2720 LZ = 311 .1687 

2730 LE = 178.699 

2740 LP = 255.7433 

2750 PG = . 111404 * NI + LP 

2760 IF PG < - 360 THEN PG = PG 

2770 IF PG < THEN P6 = PG + 

2780 IF PG > 360 THEN PG = PG 
2790 LMD = LZ + 360 * NI / 27.32158 
2800 PG = LMD - PG , ^. ^ 

2810 DR = 6.2886 * SIN C FN RAD(PG)) 
2820 LMD = LMD + DR , „, ^ ,Ann 

2830 IF LMD < - 360 THEN LMD = LMD + 3600 
IF LMD < - 360 THEN LMD = LMD + 360" 
IF LMD < THEN LMD = LMD + 360 
3600 THEN LMD 



GOTO 2830 
GOTO 2840 
GOTO 2850 
LMD - 3600: GOTO 2860 
360 THEN LMD = LMD - 360: GOTO 2870 

2880 RM = LMD / 1 5 -,onn 

IF RM > 24 THEN RM = RM " 24: GOTO 2890 
IF RM < THEN RM = RM + 24 



2840 
2850 
2860 
2870 



IF LMD > 
IF LMD > 



2890 
2900 



291 AL = LE 



2920 
2930 
2940 
2950 
2960 



IF AL 

IF AL 

IF AL 

IF AL 



. NI * .052954 ^„^„ 

- 3600 THEN AL = AL + 3600: GOTO 2920 

- 360 THEN AL = AL + 360: GOTO 2920 
THEM AL = AL + 360: GOTO 2940 
3600 THEN AL = AL - 3600: GOTO 2950 
360 THEN AL = AL - 360: GOTO 2960 
- AL 

THEN AL = AL + 360 
360 THEN AL = AL - 360 

(AL * 3.141 59 
SIN (LMD 



/ 1 80) 
3.14159 



/ 1 80) 



IF AL 
29 70 AL = LMD 
2980 IF AL < 
2 99 IF AL > 
3000 HE = 5.1454 * SIN 
3010 DM - HE + 23.1444 
PR INT : PR INT 

STR$ CRM) :DES = STR$ (DM) 
LEFTS {RA$,5):DE$ = LEFTS (DE$,5) 
VAL (RA$) < 10 THEN RAS = LEFTS '"' 
VAL (DE$> < - 9 THEN DE$ = LEFTS CDES,5) 
VAL (DES) < 10 AND VAL (DE$) > " 
MOON DATA RESUESTED FOR ..." 
TABC 5)"YEAR " ; Y X ; " MONTH ■';MX; 



3020 

3 03 RA$ 

3040 RA$ 

3050 IF 

3060 IF 

3070 IF 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

31 50 



AT NOON" 

R.A. OF MOON IS ";RAS;" HRS'^' 
'DECLINATION IS..";DE$;" DEG" 



PRINT 

PR INT 

PR INT 

PR INT 

PRINT 

PRINT 

PRINT " 

REM CALC RISE, TRANSIT, SET TIMES 
3160 R(I) = RM:V(I) = DM 
3170 P$(n = "MOON" 
3180 GOSUB 2480 
31 90 GOTO 1 560 
3200 END 



(RA$,4) 

GOTO 3080 
ID THEN DE$ = LEFTS (DES,4) 

DAY ";DX 




Photo Credit: NASA/jet Pmpuhion Laboratory 

The bizarre system of Saturn is shown in this pho- 
tomosaic. In the foreground is the satelUte Diane, 
shown only as a spot on the earlier picture. Jethys 



and Mimas are to the right of the planet, Ence/adus 
and Rhea to the left, and Titan is at the top right m the 
far distance. 
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Program 1B: SKYSET/ 

SKYPLT 



Horizon Plots of Visible Planets, Sun, Moon, and Stars 
for Any Date, Time, and Location ^^^ 

Before home computers became available to generate displays, the 
configuration of the stars had to be shown on planispheres or on monthly 
star charts. But the planets, Sun, and Moon had to be inserted on such 
charts by hand. In 1700 mechanical devices called orreries were devised to 
duplicate the orbital motions of the celestial bodies and show their loca- 
tions. These devices required great skills in craftsmanship and engraving 
and were very expensive. In the current century the planetarium was 
developed by Zeis in Germany, and many planetaria associated with col- 
leges and museums were established after World War II. In a planetarium 
an optical system projects stars and planets onto a domed ceiling in a 
theaterlike room. Today the personal computer can bring the plan- 
etarium into your living room. The monitor screen becomes the domed 

ceiling, and on it you can see the sky for any date and time, at any location 
on our planet. 

For the Apple computer this program has two parts, SKYSET and 

SKYPLT. It requires use of the CHAIN program from the system master 

diskette. SKYSET ts loaded firstand calls SKYPLT when it is run. The program 

has all the instructions needed to run it. It is also adequately supplied with 

remark (REM) statements in case you wish to modify it in any way for your 

use or special needs. When you run the program there is some delay as 
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the various arrays are loaded, but you will see the PLEASE WAIT, 
LOADING DATA message before the program begins. 

Then you will be asked for dateand other input information, as well as 
whether you wantto change the location parameters of time zone, latitude, 
and longitude. Next you are asked to select a horizon of 180 degrees 
centered on east, south, west, or north. You can then select whether you 
want the planets. Sun, and Moon displayed without showing any stars 
(which gives a quick display), or with stars included (which takes somewhat 
longertocompleteall the coordinate conversions). As the program begins 
its calculations the screen displays the message COMPUTING .. PLEASE 
WAIT. During this period it calls CHAIN and the subprogram SKYPLT. 

Next the horizon chart is generated. For the particular horizon you 
have requested, the azimuth is shown below the display and the elevation 
is shown at the left. Date and time information are displayed below the 
chart. If you select planets only, the Sun, Moon, and planets are plotted 
and the stars are omitted. If you select stars as well, the stars are plotted 
first (this takes about five minutes). Next the program plots the Sun and 
any planets above that horizon at the time and date selected. Finally it 
plots the Moon and shows it as ) before full, @ when close to full, and ( 
after full. Since the projection is Mercator, constellations toward the 
zenith are somewhat distorted by being stretched out horizontally, but 
they are still recognizable. 

Variables have been set initially for your latitude, longitude, and time 
zone. While running the program you can change the variables to other 
latitudes, longitudes, and time zones. The program should not be expected 
to run accurately at latitudes exceeding 85 degrees north and south. 

Planets are identified by numbers; 1 , Mercury; 2, Venus; 4, Mars; 5, 
Jupiter; 6, Saturn; 7, Uranus; 8, Neptune; and 0, Pluto. The shape table 
can be changed if you wish to have symbols, letters, or a different set of 
numbers identifythe planets, Sun, and Moon. Letters are used in the alter- 
native Program 16A (see Appendix). Note that if planets are within one 
pixel of each other, the outermost planet will overprint the innermost and 
only the symbol for the outer planet will be displayed. 

To see how the program works, you might choose to display the sky 
on 26 November 1981 at 11:30 A.M. for the south horizon (Figure 16.1). 
This shows all the planets, the Sun, and the Moon above the horizon atthe 
same time. If you then ask for the same date and time in the Southern 
Hemisphere (for example, for -40 degrees latitude) and request the 
north horizon, you will see these same planets and constellations inverted 
(Figure 1 6.2). Another interesting plot (Figure 1 6.3) is the south horizon at 
7:30 a.m. on 5 February 1982, when all the planets are again displayed (but 
not the Sun and Moon). This display also demonstrates how the program can 
more quickly display the planets without the stars. 
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The SKYSET/SKYPLT program generates this display of all the planets^ Sun, and Moon above 
the hor,zon on 26 November 1981 at 1 1:30 a.m. local time. The constellation Scorpio is 
directly south, Virgo ,s to the southwest, and Sagittarius is to the southeast 



Figure 16.1 



Be extremely careful when keying in the star coordinates, if at any 
p ace you use a comma instead of a period, or vice versa, the positions of 
all the stars following the error will be Incorrect and constellations will be 
unrecognizable. You can check yourself by seeing if your program produces 
the same displays as those shown In the Figures for the same time date 
and location. ' ' 

Since it is extremely difficult to adapt this Apple-oriented program to 
other computers, another version (developed for an Exidy Sorcerer) is 
given in the Appendix as SKYPLA, ProgranT 1 6A. This alternative program 
IS more easily adaptable to computers with more characters and lines on 
the monitor screen than can be displayed by a typical Apple II computer 
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installation. It does not require the chaining and subprogram required in 
the Apple program, and it can provide improved horizon graphics, 
depending on your computer. 

To run the program you load SKYSET. You must make sure that your 
disk contains the CHAIN program from the Apple DOS software. When 
you run SKYSET it calls SKYPLT. To end the program you give the command 
Control C when asked. You also have the option atthis point of rerunning 
the program for a different date, time, or location. You press any key and 
after a short delay SKYSET is reloaded and you are asked if you want to 
change any variables. 

The listings of the SKYSET and SKYPLT programs follow. 




By requesting a display for 40 degrees south latitude and selectingthe north horizon, you can 
see the planetary configuration of November 1981 as it appeared from Australia. The constella- 
tion Serpens is directly north and Scorpio is near the zenith in the northern sky. Sagittarius is 
to the northeast, and Virgo is to the northwest 

Figure T6.2 
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When you choose the option to display only the planets, the SKYSET/SKYPLT nroeram 
generates this display for 5 February 1982 at 7:30 A.M. 



Figure 16.3 
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SKYSET 



10 


HOME 


12 


IF DF 


15 


PRIMT 


?0 


P R J W T 


25 


PRINT 


30 


PR INT 


35 


PR INT 


40 


PR INT 


45 


PR INT 


50 


PRINT 


55 


PR INT 


57 


PRINT 


60 


PRINT 


65 


PRINT 


70 


PRINT 


75 


PRINT 


80 


FOR K 


100 


REM 


110 


DEF 


120 


OEF 


130 


DEF 


140 


DEF 


150 


IF D 


160 


REM 


170 


DIM 


180 


REST 


190 


HOME 


200 


FOR 


210 


FOR 


220 


READ 


230 


NEXT 


240 


FOR 


250 


FOR 


260 


READ 


270 


NEXT 


280 


P I = 


290 


REM 


300 


HIME 


310 


POKE 


320 


BA = 


330 


READ 


340 


FOR 


350 


BR = 


360 


POKE 


370 


POKE 


380 


BA = 


390 


READ 


400 


BD = 


410 


IF Y 


420 


NEXT 


1000 REM 


1010 HOM 


102 PR I 



= 1 THEN GOTO 100 
: PRINT 

: PR INT : PR INT 
TAB{ 8)"ASTR0N0MY PROGRAM" 

TAB( ID)" " 

TAB( 1 0) "I SKYSET I" 
TABC 10)" " 

: PRINT 

TABC 5)"BY ERIC BURGESS F.R.A.S." 
: P R INT : PRINT 

TABC 5) "ALL RIGHTS RESERVED BY" 

TABC 5)"S & T SOFTWARE SERVICE" 

TABC 1 0)"{ VERS ION 4/82 )" 

= 1 TO 2000: NEXT K 
SET FUNCTIONS 

FN ASNCX) = ATN CX / SOR ( - X * X + 1)) 

FN ACO(X) = - ATM (X / SQR ( - X * X + 1)) + 3.141593 / 2 

FN RAD(X> ^ CX) * 3.14159 / 180 

FN DEGCX) = CX) * 180 / 3.14159 
F = 1 GOTO 1320 

INITIALIZE DATA VARIABLES 

PD(8,8),STC236,1 ) 
ORE 

: PRINT "PLEASE WAIT, LOADING DATA" 
I = TO 8 
J = TO 8 

PO CI - J ) 

■J,! . ' 

I = TO 236 

J = TO 1 

ST CI, J) 

J, I 
5.141593 

SET HGR SHAPE TABLE 

M: 3814 3 

232,0: POKE 233,149 
38144 

N: POKE BA,N:BA = BA + 2:8D = BA + 2 * N 
X ^ 1 TO N 
BD - 38144 

BA,CBR - INT CBR / 256) * 256) 

BA + 1 , INT CBR / 256) 
BA + 2 

Y: POKE BD,Y 
BD + 1 

< > GOTO 390 

X 

INTRO PRINT ROUTINE 

E 

NT : PR INT : PR INT 
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■SKYSET (continued) ■ 



1040 
1050 
1060 
1070 
1075 
1080 
1090 
1 1 00 
1110 
1120 

I 1 30 
1140 

II 50 
1160 
1 180 
1190 
1200 
1210 
1 220 
1230 
1240 
1250 
1260 
1280 
1290 
1300 
1310 
1320 
1 330 
1340 
1350 
1355 
1360 
1365 
1370 
1380 
1390 

1400 
1405 
1410 
1420 

1430 
1440 
1450 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1500 
1510 



PR INT 
ZN = 8 
PR INT 
PR INT 
PRINT 
P R INT 
PR INT 
PR INT 
PR INT 
PRINT 
DF = 
FOR I 
HOME 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PR INT 
PRINT 
PRINT 
FOR I 
REM 
IF DF 
NC = 
PRINT 
IF YNS 
PRINT 
PR INT 
PR INT 
PRINT 
PR INT 
P R INT 
PRINT 
CY) (N) 
IF YNS 
HOME : 
PR INT 
PRINT ' 
"-";DA 
PR INT 
INPUT ' 
I F YNS 
PRINT 
PRINT 
INPUT ' 
PRINT 
INPUT ■ 
PRINT 
INPUT ' 
MO = M 
IF Y 



TARC 6) ; "ASTRONOMY 
LA = FN RAD C38. 24 ) 
: PRINT 

"INITIAL CONDITIONS ARE SET" 
"FOR ... "LJ: PRINT 

TAB{ 10); "LATITUDE " 

TABC 10); "LONGITUDE ' 

TAB( 10);"TIME ZONE ' 

"YOU CAN CHANGE THESE 



PROGRAM FOR APPLE II" 
L$ = "SEBASTOPOL,CAL.' 



:L0 = 122.49 



FN DEG(LA) 
;L0 

;ZN: PRINT : 
LATER IF YOU 



PRINT 
WISH" 



= 1 TO 

PRINT : 
: PRINT 
: PRINT 
: PRINT 

TAB{ 8) 

TABC 

TAB C 



4400: NEXT I 

: PRINT : PRINT 



PRINT 



TAB( 7)"PL0TS THE STARS FOR A REQUESTED' 

TIRE AND DATE, AND SHOWS THE" 
7)"PLANETS, SUN AND MOON ABOVE THE" 
1 6) "HORIZON" 



PRINT TAB( 4)"CL0SE TO FULL THE MOON IS SHOWN AS 3" 
TABC 7)"BEF0RE FULL IT IS SHOWN AS ) 
TABC 8) "AFTER FULL IT IS SHOWN AS C" 



: PRINT 
: PRINT 

= 1 TO 6500: NEXT I; HOME 

*** BEGIN MAIN PROGRAM *** 

= THEN PRINT : PRINT : 



AND" 
; PRINT 



PRINT 



PR INT 



P RINT 



GOTO 1460 



INPUT "DO YOU WANT TO 
= "N" THEN GOTO 1 380 
PRINT "DATE.. ";YR 



SEE THE VARIABLES? CY/N) 



-";M0 ;"■ 



TIME ZONE 



;ZN 



LAT, 



FN DEG(LA) 



LONG. 



LMT, 



";L0: PRINT 



"; YNS 
";T1;" HRS" 



WANT TO ENTER OR CHANGE ANY": INPUT "VARIABLES? 



'DO YOU 
"; YNS 

= "N" THEN NC = 
PRINT : PRINT : 

PRINT 
DO YOU WANT TO CHANGE 



1 : GOTO 
PR INT 



1770 



PRINT 



THE DATE OF: "YR;"-";MO 



(Y)CN)? ";YNS 
= "N" GOTO 15 50 
PRINT "WHAT IS 



THE DATE TO BE DISPLAYED?' 



THE YEAR 



THE MONTH 



■;Y 



"...THE DAY: ";D 
DA ^ D : YR = Y 
1800 GOTO 1550 
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■SKySEJ (continued)- 



1 520 
1530 
1540 
1550 
1560 
1 570 
1580 
1 590 
1600 
1605 
1610 
1620 
1625 
1630 
16A0 
1 650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
174 
1750 
1760 
1770 
1780 
1 790 

1 800 
1810 
1820 
1850 
1840 
1850 
1860 
2000 
2001 
2002 
2003 
200A 
2006 
2007 
2008 
2009 
2010 
201 1 
2012 
2015 
2020 

2 030 
2040 
2050 
2060 



PRINT : PRINT "IS ";Y;: INPUT " THE YEAR YOU WANTCYXN)? 
IF YN$ = "N" THEN PRINT : GOTO 1470 
IF YN$ < > "Y" GOTO 1520 
PR INT : PR INT 

'WHAT IS THE LMT TO BE DISPLAYED?" 



IF OF = THEN PRINT 

PRINT " THE LMT OF:";Tl;: 

IF YNS = "N" GOTO 1640 

GOSUB 3000 

< >0 THEN 1640 

PRINT : PRINT ; PRINT 
: PRINT "IF YOU WANT TO 
"ANSWER 'Y' WHEN ASKED, 



; YNS 



GOTO 1590 



INPUT 



(Y HN)? "; YNS 



IF DF 
HOME : 
PR INT 
PR INT 
PRINT 
PRINT 
PRINT 
PR INT 
IF YNS 
P R INT 
PR INT 
PR INT 
IF YNS 
PR INT 
PRINT 
PRINT 
IF YNS 
P RINT 
LA = 
HOME : 
PRINT 
PR INT 
P R INT 
PRINT 
PR INT 
PR INT 
PR INT 
IF CHZ 



CHANGE VARIABLES" 
OTHERWISE 'N'" 



DO YOU WANT TO CHANGE 



THE TIME ZONE 
"N" GOTO 1680 
INPUT "WHAT IS THE 



OF 



;ZN 



INPUT 



TIME Z0NE(0-23)? 



THE LONGITUDE OF: ";L0;: INPUT 
= "N" GOTO 1 720 
; INPUT "WHAT IS THE LONGITUDE? 



;L0 



{Y){N)? ";YNS 
";ZN 

CYXN)? ";YN$ 
GOSUB 3300 



OF 



FN 



DEG(LA) ; 
LATITUDE? ";LA 



THE LATITUDE 
= "N" GOTO 1770 
: INPUT "WHAT IS THE 
FN RADCLA) 

: PRINT : PRINT : PRINT : PRINT 
"WHICH HORIZON DO YOU WANT TO SEE?" 



INPUT 



CY)CN)? ";YN$ 



1 EAST HORIZON . 

2 WEST HORIZON . 

3 SOUTH HORIZON 

4 NORTH HORIZON 
INPUT "SELECT (1-4): 

: 1 OR HZ = 2 OR HZ = 
PRINT "INVALID ENTRY": GOTO 
REM *** BEGIN CALCS *** 



.. TO 180 DEG" 
.. 180 TO 360 OEG" 
. . 90 TO 270 DEG" 
.. 270 TO 90 DEG" 

";H2 

3 OR H2 = 4) THEN 2000 
1780 



PR INT 
SP = 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PRINT 
IF AS 
I F NC 
HOME 



PR INT 



"DO YOU WANT PLANETS ONLY SHOWN" 
"WITHOUT SHOWING STARS AS WELL?" 
: PRINT "PLANETS IDENTIFIED AS.. 
"HERC UR Y 1 VENUS 2" 
"MARS 4 JUPITER 
"SATURN 6 URANUS 
"NEPTUNE 8 PLUTO 0" 
: INPUT "{Y/N)";AS 
= "Y" THEN 5P = 1 
= 1 GOTO 2090 
PRINT "COMPUTING 
PLANETS *** 



5" 
7" 



.PLEASE WAIT": PRINT 



REM *** SET 
GOSUB 4000 

REM POSITION SUN 

GOSUB 5000 
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■SKYSETrconf/nued}- 



2070 
2080 
2090 
2100 
2110 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
307 
3080 
3090 
3100 
3300 
3320 
3330 
3340 
3350 
3360 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4300 
431 
4320 
4330 

4340 

4350 
4400 
441 
4420 
4430 
4440 
4450 
4460 
4500 
4510 
4520 
4530 



REM POSITION MOON 

GOSUB 7000 

PR INT CHR$ (4);"BL0AD CHAIN, A520" 

CALL 520"SKYPLT" 

REM *=*=*-*=*=*=*=*=*=*=*=*=*=*=* 

REM *** TIME INPUT *** 

PRINT "DO YOU WANT INPUT IN DEC.HRS 

INPUT " OR IN HR, HI, SE (H)? 

IF YN$ = "D" THEN 3060 

IF YNJ = "H" THEN 3080 

PRINT "INVALID REPLY": PRINT : GOTO 3010 

INPUT "WHAT IS THE LMTfHH.XXX)? ";T1 

GOTO 3100 

INPUT "WHAT IS THE LMT (H R ^ M I , S E ) ? ";HR,M1,SE 
3600: PRINT 



'; YN$ 



MI / 60 



SE / 



CORRECT ZN FOR 
* 1 5> - LO 
THEN 33 5 
ABS (LGC / 
LGC / 15 



LONGITUDE *** 



15): GOTO 3360 



T1 / 24 



1 ) = D: LCJ 



1) = L 



PRINT : 

PRINT I 

PRINT : 
T1 = HR + 

RETURN 

REM *** 
LGC = (ZN 

IF LGC < 
ZN = 2N + 
ZN = ZN + 

RETURN 

REM *** ENTER VAR.FOR CALC LST *** 

GOSUB 4400 

GOSUB 4300:ND = G - 715875 

REM POSITION PLANETS - 

FOR J = TO 8 

GOSUB 4500 
ACJ + 1 ) = A: D(J 

NE XT J 

FOR I = 1 TO 9 

IF I = 3 GOTO 4120 

GOSUB 4700 
AL(I ) = AL: AZ C I ) = AZ 

NEXT I 

RETURN 

REM *** 
G = 365 * 

IF MO > 
G = G + INT 

GOTO 4350 
G = G - INT 
INT (.75 

RETURN 

REM *** CALCUL OF LST *** 

GOSUB 4300:NS = G - 722895 
SG = .065711 
T2 = S6 * NS + 12.064707 + {((ZN + T1) / 

IF T2 > 24 THEN T2 = T2 - 24: GOTO 4440 

IF T2 < THEN T2 = T2 + 24: GOTO 4450 

RETURN 

REM *** SUB FOR A,D,L *** 
A = NO * P D (J ,0) + P D {J,1 ) 

IFA>PI*2 THEN A = (A / 

IF A < THEN A ^ A + P I * 



DAYS FROM EPOCH *** 
YR + DA + ((MO 
= 3 GOTO 4340 



CCYR 



C2.3 + 
* INT 



1) / 



MO * 
((YR 



- 1> 
4) - 



31 ) 



INT (.75 



INT ((YR 



1 ) / 100 + 1) ) 



.4) + 
/ 100) 



INT (YR 
+ D) 



/ 4) 



24) 



SG) + T1 



(PI * 2) - 
: GOTO 4530 



INT (A / (PI * 2) ) ) * P I * 2 
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■SKYSEJ (continued) ■ 



A540 C 

4550 A 

4 560 IF 

4570 

4580 

4590 

4600 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4060 

4870 

4880 

48 90 



= PD(J ,2) 
= A + C 

A > P I * 2 
THEN 



SIN (A - PD (J,3)) 



IF A > PI * 2 THEN A = A - PI * 
IF A < THEN A=A+PI*2: G 
D = PD(J,4) + PDCJ,5) * SIN (A 
L = PDCJ,7) * SIN (A - PDU,8)) 
RETURN 



PI * 2: GOTO 4560 
2: GOTO 4570 
■ - P D CJ, 6)) 



RETURN 
REM — 
I = AC3) 
IF ABS 



IF 
Q = 
P = 
X = 

T = 
IF 
IF 
IF 
IF 
IF 
IF 

HA 
IF 
If 

HA 

AL 

AZ 



2) 
2) 
* COS 

DCi))) / (D (3> * an ) ) 



X) 
X) 



1 5 
1 5 



COS 
SIN 



4900 
4910 
4920 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5 70 
5080 
5090 
5100 

51 10 

5120 
5130 
7000 
7010 
7020 
7030 
7035 
7040 
7070 
7080 



ELEV & AZ OF PLANETS 

- Ad) 

(Z) > PI AND Z < THEN Z = 2 + (P I * 
ABS (Z) > PI AND Z > THEN Z = Z - CP I * 
SQR (0(1) - 2 + D(3) - 2 - 2 * Dd) * D(3) 
(D (I } + D (3) + Q) / 2 

* FN ACO C SQR (( CP 

* CI 2 /PI) 

< THEN R = FN DEC C A(3) + PI - 

> THEN R = FN DEC{A(3) + PI + 

> 24 THEN R = R - 24: GOTO 4800 

< THEN R = R + 24: GOTO 4810 

< THEN V = SIN CAC3) + PI - X 
Z > THEN V = SIN CA(3) + PI + X 

T2 - R 
HA < - 12 THEN HA = HA + 24 
HA > 12 THEM HA = HA - 24 

FN RADCHA * 15):V = FN RADCV) 
FN ASNC SIN CV) * SIN (LA) + 
FN ACOCC SIN CV) - SIN CLA) * 
* COS ( AL) ) ) 
IF HA > THEN AZ = PI * 
AL ^ FN DEGC AL) : AZ = FN 
RETURN 

REM POSITION SUN 

RS = FN DEGC AC3) + PI) / — 
IF RS > 24 THEN RS = RS - 24: GOTO 5020 
IF RS < THEN RS ^ RS + 24: GOTO 5030 
VS = SIN CAC5) + PI) * 23.44194 
HS ^ T2 - RS 
IFHS< -12THENHS=HS+24 
IF HS > 12 THEN HS = HS - 24 
HS = FN RAD{HS * 15):VS = FN RAD(VS) 
AS = FN ASNC SIN CVS) * SIN (LA) + 
ZS ^ FN ACOCC SIN CVS) 
* COS ( AS ) ) ) 

IF HS > THEN ZS = PI * 2 
AS = FN DEG(AS):ZS = FN DEG(ZS) 
RETURN 

REM POSITION MOON 

NO - .5 
2 5 5. 74 3 3 

311.1687:LE = 178.6 99 
LZ + 360 

MD 



CZ)) 



23.44194 + 
23.44194 + 



FN 
FN 



DEG(L (I )) 
DEGCLCl) ) 



CV) * COS (LA) * COS (HA) ) 
CAD) / C COS CLA) 



2 - AZ 
D E G C A Z ) 



15 
■ 24 



SIN CLA) 
- ZS 



COS CVS) - 
SIN (AS)) / C 



COS (LA) * 
COS (LA) 



COS CHS ) ) 



ND 
LP 

LZ 
LM 

MD 
PG 

MD 



7090 PG 



= LM: GOSUB 

= .11 1404 * 

^ PG: GOSUB 

= LM - PG 



LE = 178.- 

* ND / 27.321 58 

7700:LM 

ND + LP 

7700: PG = MD 
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7095 REM CORRECT FOR ELLIPTICAL OREIT 

7100 DR = 6.2886 * SIN C FN RADCPG)) 

711D LM ^ LM + DR 

7115 IF LM > 360 THEN LM = LM - 360: GOTO 7120 

7117 IF LM < THEN LM = LM + 360 

7120 RQ = LM:RM ^ LM / 15 

7130 IF RM > 24 THEN RM = RM - 24: GOTO 7130 

7140 IF RM < THEN RH = RM + 24 

7150 AL = LE - ND * .052954 

71 60 ND = ND + . 5 

7170 MD = AL: GOSUB 7700:AL = MD 

71 SO AL = RQ - AL 

7190 IF AL < THEN AL = AL + 360 

7200 IFAL>360THENAL=AL-360 ^ 

7210 HE = 5.U54 * SIN ( FN RADCAD) 

7220i)M = HE + 23.1444* SIN(FNRAD(RQ>) 

7 2 30HD=T2-RM 

7240 IF HD < - 12 THEN HD = HD + 24 

7250 IF HD > 12 THEN HD = HD - 24 

7260 IF CHD > 12 OR HD < - 12) THEN RETURN 

7 270 HA ^ FN RAD(HD * 15):CM = FN RAD(DM) 

7280 ML = FN ASN< SIN (DM) * SIN (LA) + COS (DM) * COS (LA) * COS CHA)) 

7290 M2 = FN ACO(( SIN (DM) - SIN CLA) * SIN CMD) / ( COS (LA) 

* C S C M L ) ) ) 
7300 1FHA>0THENMZ = PI*2_-MZ 
7 310MZ^FNDEG(M2) 
7320 ML = FN DEGCML) 
7330 GOSUB 7600 
7340 RETURN 

7600 PM = RS + 1 2 - RQ / 1 5 
7620 IF PM > 12 THEN PM = PM - 24 

7630 IF (PM > = - 2 AND PM < =2) THEN MS = 11: RETURN 
7640 IF LA < AND PM < - 2 THEN MS = 12 
^650 IF PM < - 2 THEN MS ^ 13 

7tbO IF LA < AND PM > 2 THEN MS = 13: RETURN 
7670 IF PM > 2 THEN MS ^ 12 
7 680RETURN 

7700 IF MD < - 3600 THEN MD = MD + 3600: GOTO 7700 
7710 IF MD < THEN MD = MD + 360: GOTO 7710 
7730 IF MD > 3600 THEN MD = MD - 3600: SOTO 7730 
7740 IF MD > 360 THEN MD = MD - 360: GOTO 7740 
7750 RETURN 

9000 REM *** ORBITAL ELEMENTS OF PLANETS, MER C UR Y-PLUTO *** 
9010 DATA .071425, 3. 84 94, .388301, 1.54041,. 3871,. 07974, 2. 73514,. 1221 73, 

. 83601 3 
9020 DATA .027962,3.0281 2,. 013195, 2. 28638,. 7233,. 00 506, 3. 85017,. 059341, 

1.33168 
9030 DATA .017202,1 .74022, .032044,1 .78547,1 , .017,3.33926,0,0 
9040 DATA .009146, 4. 51234, .175301, 5. 85209,1. 5237,. 141704,1. 04656,. 03142, 

.858702 
9050 DATA .001451, 4. 53364,. 0904 78,. 2391 1,5. 2028,. 249374,1. 761 88,. 01 972, 

1 .74533 
90 60 DATA .0005 84, 4, 89 884,. 105558,1. 61 94, 9. 5385,. 5341 5 6, 3. 1257,. 04 3633, 

1 .977458 
9070 DATA .000205, 2. 46615, .088593, 2. 96706, 19. 182,. 901554, 4. 49084, .01396, 

1 .23805 
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9080 

9090 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

96jU 

964U 

9650 

966U 

9670 

9680 

9690 

9700 

971 

9720 

9 730 

9740 

975 

9760 

9770 

9780 

9790 

9800 

981 

982 
9830 
9840 
9850 
9860 
9870 
9880 
9890 
9900 
9910 
992 
9930 
9940 

9943 
9946 
9950 
9960 
9970 



000104,3. 78556,. 016965,. 773181, 30. 06,. 27054, 2. 33498,. 031416, 

,.471239,3.91303,39.44,9.86,5.23114,-300197,1.91812 



3,76 



DATA 

REM 

DATA 

REM 

DATA 

REM 



7,50 
3,73,19.2,68 



DATA 

2.291 62 

DATA .000069,3.16948. 

REM *** DATA ON RA AND DEC OF STARS *** 

REM ORSA MINOR 

DATA 2,89,18,86,17,82,16,78,15,75,15.4,72,16 

REM CEPHEUS 

DATA 20.8,61,21 .5,70 

REM CASSIOPEIA „ n . c-. n 1 -^Q 

1.9,63,1 .4,60,0.9,60,0.6,56,0.1,59 

3"!5o'3. 0,53, 3. 7, 48, 3. 1,41, 3. 9, 40, 3. 9, 32 

URSAMAJOR „c^ny£:=;i7 

11,57,11,63,11.9,54,12.2,58,12.9,57,13.4,55,13 

„c.-i DRACO rr-,i-7oi;iiR 

DATA 16,59,16.4,62,17.1,66,17.5,52,17.9,51,18 

REM CEPHEUS 

DATA 23.8,78,21.^,62,22-1,58,22.8,67 

REM ANDROMEDA 

DATA 2,42,1.1,35,-6,31 

REM TRIANGOLUM 

DATA 2.1,35,1.8,29,2-2,34 

»T/ir7!lo,0.1,. 9,0. 2,U,21.7,10,ZB. 2,6,22. 7,10,Z3,4,Z3,ZS 

REM A0RI5A . , ^ -.^ r /i 

DATA 5.2,46,5.9,45,5.9,37,4.9,33,5,41 

SATAir5r39,15, 40,15. 3,33,14. 2,20,13. 9,19,14-7,27,15. 5,27,15 

REM CORONA 

DATA 15.6,27 

REM HERCULES ^ ^, „7 t. 5C ia 

DATA 16.7,39,16.7,31,17,51,17.2,37,17.2,25,16 

REM LYRA 



5,21,16.4,19 



DATA 18.7,39,18.8,33,19,32 

DATA 2r7'45. 20. 3,40, 19. 8,45, 20. 8,34,19. 5,28 

'" ;:6:2l3,4,2. 7,3,4. 5,17,5. 4,29,5.6,21, 3. 7,24,4. 3,15, 4.45,19 

ARIES 

2.1,23,1.8,21,1.8,19 

ERIDANUS 

3-9,-13,3.3,-20 .^ - 

PISCES 

2,-10 ^ . 



DATA 

REM 

DATA 

REM 

DATA 

REM 

DATA 

REM 

DATA 

REM 

DATA 

5.2, 

REM 



1.5,-9,1 
CETUS 
.7,-18,1 
ORION 
5.8,8,5.4,8,5 

-9 
CANIS MAJOR 



1,-10,1.3,-9,2,2 

75,-2,5.6,-1,5.45,0,5-8,-10,5.6,-6,5.6,10,5.5,-21, 



DATA 6.7,-17,6-3,-18,6.9,-29,7.2,-27,7.4,-29 

REM CANIS MINOR 

DATA 7.6,7,7.4,9 "^ 

REM GEMINI 



PROGRAM 16: 5KYSET/SKYPLT 



139 



SKY^ET (continued) ■ 



9980 
9990 
10000 

10010 
10020 
10030 
1004 
10050 
10060 
10070 
100S0 
10090 
10100 
10110 
1012 
10130 
10140 
101 50 
10160 
10170 
101S0 
101 90 
10200 

10210 
10220 

10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
1 1000 
11005 

I 1 01 
11020 
11030 
11040 
11050 
11060 

II 070 
11080 

I 1090 
11100 
11110 
11120 

II 1 30 



ReI'^ ^-^'^^'^-^'^S'^- 3' 22, 6. 7, 25, 6. 6, 16, 6. 4, 22, 6. 3, 22 

DATA 10 1,12,10.1,17,10.3,20,10.3,24,11.2,20,11.2,16,11.8,15,9.8, 
1^0,9. 7,26 

REM CANCER 

DATA 8.7,29,8.6,21 

REM HYDRA 

DATA 9.5,-9,8.7,7,8.9,7,9.2,2,10.4,-17 - 
REM VIRGO 

DATA 11.8,2,13.4,-11,13,11,12.9,3,12.7,-1,12.3,-1,13 1 -5 
REM CRATER ^ -^ --■/', i J . i , D 

DATA 10.8,-16,10.9,-18,11.3,-15,11 .4,-18 
REM CORVUS 

DATA 12.5,-16,12.2,-17,12.5,-23,12.2,-22 
REM SERPENS 



15.8,17,15.5,10,15.7,7,15.8,5,15.8,-3 
LIBRA 



DATA 

REM 

DATA 15.3,-9,14.8,-16 

REM OPHIUC HUS 

DATA 17.5,12,17.2,25,17.6,5,17.7,3 

REM SAGITTARIUS 



DATA 18.3,-30,18,-30,18.4,-25,18.9,-26,19,-30,19.1,-21,18 3 -21 
REM SCORPIO 'I' lo.j, c i 

DATA 16.5,-26,16.6,-28,16.4,-24,16,-20,15.9,-22,15.9,-26,18.6,-43 
16.7,-34,18.5,-37,18.7,-40,16.7,-38,22.9,-30 ' . . - 



REM CAPRICORNUS 

OATA 21.7,-18,21.6,-18,21.4,-22,20.8,-28,20.7,-26,20.3,-14,20.2,-12, 
2 2.9, -3 

REM DELPHINUS 

DATA 20.5,11,20.6,15,20.7,15,20.6,16,20.8,16 

REM AQUARIUS 

DATA 22.6,0,22.5,0,22.4,1,22.3,-2,22,0,21.5,-6 

REM AQUILA 

DATA 19.8,9,19.7,10.5,19.9,6,19.1,13,18.95,14,20.1,-1 

REM SOUTHPOLAR REGION ^ ^ , ' 

DATA 12-2,-59,12.1,-50,12.4,-57,12.7,-59,12.3,-63 

DATA 14,-60,14.7,-60,14.7,-65,15.9,-63,15.1,-69,16.9,-69 

DATA 20.3,-57,1.7,-57,2,-62,0.4,-63,6.3,-52,6.8,-51 

DATA 8.8,-5 5,9.3,-5 5,9.2,-5 9,8.3,-60,9.1,-70,9.8,-6 5 

DATA 3.9,-75,12.5,-69,12.6,-68 

REM *** SHAPE TABLE DATA *** 

DATA 13 

DATA 36,12,21,54,54,30,7,32,4,0 /"/ " 

DATA 32,12,173,182,246,63,32,12,45,0 ' ^ j: 

DATA 146,100,100,12,32,63,63,0 

DATA 54,14,45,32,28,63,52,12,45,5,0 -" ' .' . 

DATA 22,21,45,32,28,63,32,44,45,05,00 

DATA 12,12,12,54,54,54,196,63,4,0 

DATA 41,12,228,191,150,114,45,32,4,0 

DATA 64,99,173,246,30,30,46,45,5,0 

DATA 146,9,36,36,36,4,0 

DATA 36,188,119,247,45,62,46,53,36,53,37,44,63,44,60,7,0 

DATA 36,188,55,21,63,14,46,14,12,37,12,39,60,22,214,7,0 

DATA 182,12,37,12,63,12,60,28,54,6,0 '''''' 

DATA 182,28,39,28,45,28,44,12,54,6,0 
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ci/vnix 




100 


REM SKYPLT PROGRAM --- 




1000 


REM RESET FUNCTIONS 




1010 


DEF FN ASN(X) = ATM (X / SQR ( - X * X + 1)3 




1020 


BEF FN ACO(X) = - ATN CX / SQR ( - X * X + 1 > > + 3.14159 / 2 | 


1030 


DEF FN RAD(X) = X * 3.14159 / 180 




10A0 


DEF FN DEGCX) = X * 180 / 3.14159 




1050 


REM SET COORDINATES AND DATA 




1060 


HOME 


* 


1070 


HGR 




1080 


HC0LOR= 7: SCALE= 1 : ROT= 


. 


1090 


X = FRE (0) 




1100 


FOR X = 1 TO 8 




1110, 


DRAW X + 1 AT 0,X * 21 - 13 


-^ 


1120 


DRAW 1 AT 5,X * 21 - 13 




1130 


NEXT X 




1140 


HPLOT 0,159 TO 279,159 




1150 


VTAB (21) 


' 


1160 


ON H2 GOTO 1170,1180,1190,1200 




1170 


PRINT " fJ 30 60 E 120 150 


S";: GOTO 1210 


1180 


PRINT " S 210 240 W 300 330 


N";: GOTO 1210 


1190 


PRINT " E 120 150 S 210 240 


W";: GOTO 1210 


1200 


PRINT " W 300 330 N 30 60 


E"; 


1210 


PRINT "DATE: " Y R " -" MO"-"D A '■ LMT: " LEFTS { STRJ CT1),5)" LST:" | 




LEFTJ C STRS CT2),5) 




1220 


PRINT "LAT: "; LEFTS (STRS C ABS ( FN DEGCLA))),5); 1 


1230 


IF LA > THEN PRINT " NORTH"; 




1240 


IF LA < THEN PRINT " SOUTH"; 


• ■ 


1250 


PRINT " LONG: " LEFTS ( STRS (L0),5) 




1260 


REM --- GET AZ AND EL FOR EACH STAR AND POKE IT ON CHART — - | 


1265 


IF SP = 1 THEN GOTO 1490 




1270 


FOR K = TO 236 




1280 


SR = ST(K,0) :SD = ST(K,1) 




1290 


HD ^ T2 - SR 




13 00 


IF HD < - 1 2 THEN HD = HD + 24 




1310 


IF HD > 12 THEN HD = HD - 24 




1320 


HA = H D * 15 -=*- 




1330 


HA = FN RAD(HA>:SD = FN RAD(SD) 




1340 


SL = FN ASNC SIN CSt>) * SIN (LA) + COS (SD) 


* COS (LA) * COS (HA)) 


1350 


SZ = ( SIN (SD) - SIN (LA) * SIN (SL>) / ( COS 


(LA) * COS (SD) 


1360 


IF SZ > =1 THEN SZ = 0: GOTO 1400 




1370 


IF SZ < = - 1 THEN SZ = PI: GOTO 1400 




1380 


SZ = FN ACO(SZ) 




1390 


IF HA > THEN SZ=PI*2-SZ 




1400 


SZ = FN DEG(SZ) 


" 


1410 


IF SZ > 360 THEN SZ = SZ - 360 




1420 


IF SZ < THEN SZ = SZ + 360 




1430 


SL = FN DEG(SL) 




1440 


XI = SZ: Y1 = SL 




1450 


GOSUe 2000 




1460 


IF X2 < GOTO 1480 




1470 


HPLOT X2,Y2 . - 




1480 


NEXT K 




1490 


REM PLOT SUN 
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1500 

1510 

1 520 

1530 

1540 

1550 

1560 

1570 

1 580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1 700 

1710 

1720 

1730 

1740 

1 750 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 



X 1 = 2 S : Y 1 = A S 
GOSUB 2000 

IF X2 < GOTO 1540 
DRAW 10 AT X2, y2 

REM --- PLOT PLANETS 

FOR X = 1 TO 9 

IF X = 3 THEN 1610 

XI = AZ(X) : Y1 = AL(X) 
GOSUB 2000 

IF X2 < GOTO 1610 ' 
DRAW 10 - X AT X2^ Y2 
NEXT X 

REM PLOT MOON 

XI = MZ: Y1 = ML 
GOSUB 2000 - ' 

IF X2 <: GOTO 1670 
ORAW MS AT X2,Y2 
REM END 

PRINT •■HIT ANY KEY TO PLOT AGAIN, "C TO STOP"; 
u t r YN $ ' 

TEXT : HOME 

IF YN$ = CHRS (3) THEN END 
DF = 1 

PRINT : PRINT CHR$ C4);"BL0AD CHAIN, A520" 

CALL 520"SKYSET" 

REM =*=*=*=*=*=*=*=*=*=*=*=*=^ 

REM BRACKET VALUES 

IF Y1 < 10 OR Y1 > 81 .4 GOTO 2150 
ON HZ GOTO 2030,2050,2070,2090 
IF XI > AND XI < 180 THEN GOTO 2120 
GOTO 2150 

gStJ%^5J^° ^^^ ^^ ^ ^^° ^^^^ XI = XI - 180: GOTO 2120 
GOTO^I^o" ^^^ ^^ " ^^° ^^^^ XI = X1 - 90: GOTO 2120 
IF XI > =0 AND XI < 90 THEN XI = XI + 90: GOTO 2120 
GOTO^Jsr^ "''' '' ' ^ '*° '"'"^ XI = XI - 270: GOTO 2120 

X2 = (265 / 180) * XI + 11 

Y2 = (150 / 71.4) * (81.4 - YD + 5 
RETURN 

X2 = - 1 
RETURN • ;.- -■ i 



rikjiiii 



PhMu Credii: SASA/let Propulsion LabnratnrY 

Jupiter, the giant planet of our solar system, was 
explored for the first time by a Pioneer spacecraft in 
1973. It was later revealed as a planet of incredibly 
complex detail by the Voyager flyhys. Even in a small 
telescope Jupiter presents an interesting pattern of 



light and dark bands with a large red spot. In close-up 
pictures like the one shown here, the light and dark 
bands are resolved into intricate details of swirling 
storms. This Voyager picture shows the satellites lo 
and Europa in transit across the face of Jupiter. 
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Finds and Plots Planets, Sun, and Moon 
In Constellations for Any Date and Time_ 



How do you find out where a planet, the Sun, or the Moon is on any 
date? Some astronomical books give this type of information, but it is 
usually out of date when you most want to use it. The astronomical 
magazines provide the information on a monthly basis. But if you wantthe 
information for a few months ahead you must refer to a yearly almanac. If 
you want the i nformation a year or years ahead you have to make laborious 
calculations, perhaps helped by a handheld calculator. However, with a 
personal computer and this program you can quickly and easily locate a 
planet, the Moon, or the Sun at any date. 

When you select a date and a planet, the Sun, or the Moon, this pro- 
gram calculates where the object is located among the "fixed" stars of the 
celestial sphere. It selects a suitable zodiacal star chart {2 hours of right 
ascension and 30 degrees of declination), displays its name, and shows 
the object among the stars. The dotted line across the middle of each chart 
is the ecliptic. Because of the limitations of resolution of any monitor 
screen, the selected object's accurate right ascension and declination is 
displayed before the object is shown on the star chart. 

The program then offers the option of having other planets, the Sun 
and the Moon displayed on the chart if they are located on the same chart 
region on the date requested (see Figure 17.1). 

When you have obtained the information, the computer asks you if 
you want another planet on the same date. If you answer 'Y', it will then 

select an appropriate chart to display the new selection and offeragain the 
ability to chart other planets in that new star chart. 



-^^^^-^...--.^^-nt..^ -..; r-.-^_r— - 
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MARS ]S IN UIRGO 

Sy DlipLAYED ON CHART BELgW 



OTHERS'^ Y/H Y 

PRESS RETURN TO CONTINUE 1 



This display results if you ask the PLNTF program to find Mars on 25 February 1982. The 
planet (M) is plotted near to the starSpica in the constellation of Virgo. The program then asks 
if you want to see other planets in the same region of the zodiac. An affirmative answer of 'Y' 
places Saturn (S) on the display, close to Mars and Spica at the date selected. 



Figure 17.1 



Other alternatives available are to ask for another date for the same 
planet, or another date and another planet. 

You can also select, when determining the date, whether you require 
a series of plots. If you do not, insert Ts in answer to the interval in days 
and the number of plots required. If you require a series, you must input 
the number of plots and the time interval (in days) between each plot. If 
your series of plots runs off the screen, the monitor will display the name 
of the planet and the message OFF CHART for every plot that is off the 
chart. Figure 1 7.2 illustrates the option of displaying a series of plots. 
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HARS IS IN UIRGO 

OH 1982 2 20 

AS DISPLAYED ON CHART BELOW 



M M 



PRESS RETURN TO CONTINUE 



An alternative use ofth e PLNTF program is to plot the positions of a planet for a series of dates. 
This display shows the nnotion of Mars at 20-day intervals through the constellation of Virgo 
starting on 20 February 1982. 



-Figure 77.2 



The program operates by first loading planetary data, as in other pro- 
grams, and then computing the right ascension and declination of the planet 
you wish to find for the date you have requested. It displays this Information 
on the monitor screen . Next the program determines (in instructions 2490 
through 2590) which zodiacal region must be displayed. It then jumps to 
the part of the program (beginning at instruction 3660) containing the 
screen coordinates for the stars in that region of the sky, and displays the 
appropriate stars on the monitor screen. Converting the right ascension 
and declination to screen coordinates, the program places the planet at its 
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correct location in the constellation by poking its ASCII character at the 
screen coordinate. Use of POKE statements enables the celestial objects 
to be displayed on the monitor screen without scrolling or erasing the 
other characters on the display. 

When you request the display of other planets in the same star chart 
region, the program checks the right ascension of each of the other 
planets, the Sun, and the Moon. If any of these fall within the range of right 
ascensions covered by the chart displayed on the monitor, the program 
displays them at the correct location in the zodiacal constellation. 

If you have requested a series of displays, the program loops until the 
number of displays matches the number requested. 

The program will need modification to suit each individual computer's 
display format. The parts of the program requiring such modification are 
those that display the constellations and POKE the planets. Sun, and 
Moon in the star chart. Refer to the alternative program for guidance in 
adapting this program to your computer. You can also modify this program 
to usethe high resolution graphics ofthe Apple by changingtheVTAB and 
TAB instructions to high resolution graphic coordinates. Ifyoudothis, you 
must incorporate a short routine to allow the main program to continue 
beyond the region of memory reserved for the high resolution graphics. 
For computers with screens having 64 characters and 30 lines, the 
alternative PLNTA, Program 1 7A in the Appendix, identifies and displays 
nearby constellations over 4 hours of right ascension and 60 degrees of 
declination, provides a grid of right ascension and declination, and names 
the bright stars. You can elect to have the grid lines deleted. 

The basic calculations of planetary positions and the subroutines and 
flags used to produce the different types of displays and select the chart 
zones will operate in connection with any new display formats that you 
may wish to develop. Both programs have been sprinkled with remark 
(REM) statements to help you modify them to suit your system. 
The listing of the PLNTF program follows. 



PROGRAM 17: PLNTF 



147 



PLNTF 



ID 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 



CLEAR 
HOME 
DIM PD 
PR INT 
DEF F 
OEF F 
DEF F 
PR INT 
PRINT 
PRINT 
PRINT 
PR INT 
PRIftfT 
PR INT 
PRINT 
PRINT 
PR INT 
PRINT 
PR INT 
PR INT 
FOR K 
HOME : 
INPUT 
IF AS 
IF A$ 
HOME : 
PR INT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PR INT 
PR INT 
PRINT 
INPUT 
HOME : 
PRINT 
INPUT 
IF Y = 
IF Y > 
PRINT ' 



(9,9) 
: PRINT 
N ACO(X) 
N RAD(X) 
N DE6(X) 
: PRINT 



= - ATN (X / SQR 
= .01745328 * (X) 
= 57.29578 * (X) 
PRINT 



( - X * X + 1)) + 1.5707963 



TABC 8r'ASTR0N0MY PROGRAM' 



TAB( 5)"-- 
TABC 5)"I 
TAB< 5)"-- 



PLANET FINDER 



I" 



TAB{ 5)"BY ERIC BURGESS F.R.A.S 
: PRINT 

TAB( 5)"ALL RIGHTS RESERVED BY" 
TAB( 5)"S a T SOFTWARE SERVICE" 



TABC 
= 1 T 

PRIN 
"DO Y 

< > 

PR IN 
"THIS 
"SUN, 
"CONS 



Sr'CVERSION 4.82)" 
3000; NEXT K 
T : PRINT 

OU WANT INSTRUCTIONS? Y/N "-AS 
THEN 480 

"Y" THEN PRINT : PRINT "INVALID RESPONSE": PRINT : GOTO 220 
T ; PRINT 

PROGRAM PLACES A PLANET, OR THE" 

OR THE MOON AMONG THE ZODIACAL" ' 
TELLATIONS FOR ANY DATE." 



"ANSWER THE PROMPT 'OTHERS?' WITH 'Y'" 
"AND OTHER PLANETS, SUN, OR MOON" 
"IN THE SAME CHART WILL BE DISPLAYED" 

"YOU CAN ALSO PLOT THE POSITIONS OF" 
"A PLANET FOR A SERIES OF INTERVALS" 

"BECAUSE OF THE LIMITATIONS OF SCREEN" 
"RESOLUTION, THE RIGHT ASCENSION AND" 
'DECLINATION OF THE CHOSEN PLANET, SUN," 
'OR MOON IS GIVEN BEFORE THE MONITOR" 
'DISPLAYS THE ZODIACAL STAR CHART" 

r * * 
'THE DOTTED LINE ACROSS THE MIDDLE" ' '^ 
'OF EACH CHART IS THE ECLIPTIC" ^• 
: PRINT : PRINT 
'PRESS RETURN TO CONTINUE "-A$ 

PRINT : PRINT 
'ENTER THE DATE": PRINT 
' THE YEAR ";YD$: Y = VAL (YDS) 

THEN PRINT "INVALID RESPONSE": PRINT 

1800 THEN GOTO 590 
'IS ";Y;" THE CORRECT YEAR? ": 



GOTO 500 
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■PlNlf (continued)- 



5A0 

550 

560 

570 

5S0 

590 

600 

610 

620 

63 

640 

650 

660 

670 

68 

690 

7 00 

710 

720 

730 

740 

750 
760 

770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
88 

890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
100 
101 
102 
103 
1 04 



GOTO 590 



INPUT YS 

IF PS = 10 OR F8 = 1: THEN GOSUB 7210 

IF Y$ ^ "Y" THEN GOTO 590 

IF YJ < > "N" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 530 

IF YS = "N" THEN PRINT : GOTO 500 

PRINT : INPUT " THE MONTH ";MD$:M = VAL (MD$) 

IF M = OR M > 12 THEN PRINT "INVALID RESPONSE": PRINT 

PRINT : PRINT " THE DAY " 

INPUT "(USE DECIMAL FOR HRS) ";DD$ 

D=VALCDD$) 
REM STORES INITIAL DATE 
IF F9 = 1 THEN GOTO 670 
D2 = VAL (DDS) : Y2 = Y :R2 = M 
IF D = OR D > 31 THEN PRINT ' 
IF R ^ 2 AND > 29 THEN PRINT 
PR INT 
SELECT INTERVALS AND HOW MANY" 
TAB( 5)"ENTER VS IF YOU NEED ONE PLOT ONLY" 

PRINT 
WHAT IS THE INTERVAL (DAYS) ";TI$: PRINT 
VAL (TI$)- IF TI = THEN PRINT "INVALID RESPONSE 



IN D2,M2,Y2 



INVALID RESPONSE" 
"INVALID RESPONSE' 



PR INT 
PR INT 



GOTO 610 
GOTO 610 



PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
TI - 
GOTO 730 
INPUT "HOW MANY 
IN = VAL CIN$) : 
GOTO 879 
REM SETS 
NC ^ 1 
GOSUB 800 
REM CALC 
HOME : PRINT 
DC = 365 * 
IF M > 
REM CALC 
DC ^ DC + 
GOTO 890 
REM CALC 
DC = DC - 

- INT (( 
NI = DC 
IF F9 = 1 
RETURN 

REM JUMPS PLANETARY 
IF F9 ^ 1 THEN GOTO 
REM INPUT PLANETARY 
REM JUMPS PLANETARY 



PR INT 



INTERVALS ";INJ: PRINT 

IF IN = THEN PRINT "INVALID RESPONSE" 



INTERVAL COUNT AT 1 



PR INT 



GOTO 920 
DAYS FROM 1 960, 1 , 1 
PR INT "PLEASE 
Y + D + ( (M - 1 ) * 
3 GOTO 870 
FOR JAN OR FEB 
INT C CY - 1 ) / 4) 



EPOCH 
WAIT" 

31 ) 



TO DATE 



- INT (C.75) * INT (CY - 1) / 100 + D) 



FOR 

INT 
,75) 
71 5875 

THEN 930 



MAR THRU DEC 

(M * .4 + 2.3) + INT (Y 

* INT ( ( Y / 100) + 1 ) ) 



/ 4) 



IF FL = 
IF F8 = 
IF F6 = 
RESTORE 
FOR YP 



THEN 
THEN 

THEN 



GOTO 
GOTO 
GOTO 



INPUTS 

1490 

DATA, 

INPUT 

1230 

1250 

1250 



IF NEW INTERVAL 

ORBITAL PARAMETERS 
IF NEW DATE 



= 0T0 8: F0RXP=0T0 8 



READ PD(YP,XP) 
NEXT XP,YP 
REM MERCURY 
DATA .071422,3, 
.836013 



8484, .388301, 1.3404 1,-3871, .07974, 2. 73 514, .122173, 
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1050 
1060 

1070 
1080 
1090 
1100 

1110 
1 120 

1130 
1140 

1150 
1 160 

1 170 
1180 

1 190 
1200 

1210 
1220 
1230 
1240 
12 50 
1260 
1270 

12 80 
1290 

13 00 
1310 
1320 
1330 
1340 
1350 
1360 

1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1 520 



REM VENOS 

DATA .02 7962, 3. 02 81 2,. 01 31 95, 2. 28638,. 72 33,. 00 506, 3. 8501 7,. 05 9341, 
1 .33168 

REM EARTH (FOR SON) 

DATA .01 7202,1. 74 022,. 032044, 1.78547,1, .01 7, 3. 33926, 0,0 
REM MARS 

DATA .009146, 4. 51234, .175301, 5. 85209, 1.5237, .141 704,1. 04656,. 03142 
.858702 

REM JOPITER 

DATA .001450,4.53364, . 0904 78, . 23 91 1 , 5 . 202 8, . 249374, 1 . 76 1 88, . 01 97 2, 

1 . 74 533 

REM SATURN 

DATA .000 584, 4. 89884,. 105 5 58, 1.61 094, 9. 5385,. 5341 56, 3. 12 57,. 043633, 
1 .977458 f , 

REM URANUS 

DATA .0002 05, 2. 466 15,. 0885 93, 2. 96706, 19. 182,. 90 15 54, 4. 49084,. 01 396, 
1.28805 

REM NEPTONE 

DATA .0001 04,3. 78556,.01 6965,. 7731 81,30. 06,. 27054, 2. 33498,. 031 41 6, 
2.29162 f , , 

REM PLUTO 

DATA .000069, 3. 16948,. 4 71 2 39, 3. 91 303, 39. 44, 9. 86, 5. 23 11 4,. 300 197, 
1 .91 812 , uu 1 7, , 

FOR 19 = 1 TO 9: READ P$CI9): NEXT 19 

DATA MERCURY, VENUS, SUN, MARS, JUPITER, SAT URN, URANUS, NEPTUNE, PLUTO 

1FF9=2THENGOT01260 -.' 

FL = 

REM CALCDATAFORPLANETS ' •• . ■' 

IF F9 = 2 THEN GOTO 1490 \ ■ ■ -. ;' 

IF F8 = 1 THEN F8 = 0: GOTO 1490 ■ . . ; ■ ■, ^ .•, 

HOME .,. :.-•■..: 

PRINT : PRINT : PRINT • -J . ;- 

PRINT "WHICH PLANET, SUN, OR MOON" ' . .. 

PRINT " DO YOU WANT TO FIND-?" '. .' 

PRINT ■ • . I 

PRIMT 
PRINT 
PRINT 
PR INT 
PR INT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PR INT 
PS = 

IF PS = OR PS > 10 THEN PRINT "INVALID CHOICE": PRINT : GOTO 1450 

REM STORES SELECTION IN P2 
P2 = PS 

IF PS = ID THEN GOSUB 7210 
1 = 1 

REM CALC. PLANETARY DATA AT DATE 



TABC 5)"MERCURY C+) 

TAB C 5) "VENUS CV) . . 

TABC 5)" 

TAB( 5) "MARS (M) 

TABC 5) "J UPITER (J ) 

TABC 5)"SATURN CS). 

TABC 5) "URANUS CU). 

TABC 5)"NEPTUNE (N) 

TABC 5) "PLUTO (P).. 

TABC 5)" 



SUN CO)" 



,MOON O) 



TABC 10): INPUT "SELECT 1 THRU 10 ";PS$ 
UAL C P S $ ) 



I 
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1530 

1540 

1550 

1 560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1 760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 



REM AND STORE IN ARRAYS 

FOR J = TO 8: GOSUB 1710 
ACI) = A:DCI) = I>S:L{I} = L 
I = I + 1 : NEXT J 

FOR I = 1 TO 9 

REM SKIP EARTH 

IF I = 3 THEN NEXT I 

GOSUB 1860 
Q(I) = Q:XCI) = X:R(I) = R: 

NEXT I 

I = 1 TO 9: Ad) = FN 
= 3 THEN NEXT I 



FOR 

IF I 

NEXT 
I = PS 
RC3) = <A(3) 

IF R (3) < 
V<3) = C SIN 

GOTO 2070 

REM CALC 

REM 

R 
A = 



VCD = V 
DEGCACin 



- 180) / 1 5 

THEN R{3) = R (3) + 24 

( FN RAD(AC3) - 180))) * 23.44194 

DS, AND L 



REM CALC A, DS, AND L 

REM AT DATE 

REM HELIOCENTRIC LONGITUDE, A 

= NI * PD(J,0) + PD(J,1) 
IF A > 6.28318 THEN A = CCA / 6.28318) - INT CA / 
IF A < THEN A = A + 6.28318: GOTO 1760 

= PDCJ,2) * SIN (A - PD CJ,3)) 



6.28318)) * 6.28318 



IF 
C 
A - 

IF 



A < THEN 

PDCJ,2) 

A + C 

A > 6.2831 8 THEN 

A < THEN A = A 



A = A - 6.28318 

+ 6.28318; GOTO 

.ANET FROM SUN 



1800 



DS = 



DS 

PD CJ, 6) ) 



REM CALC DISTANCE FROM ECLIPTIC, L 




L = PD(J,7) * SIN CA - PD(J,8)) 




RETURN 




REM CALC Z,Q,X,R,V 




REM CALC ANG, DIST. FROM SUN Z 




Z = AC3) - ACI) 




IF ABS CZ) > 3.14159 AND Z < THEN Z = 


Z + 6.28318 


IF ABS (Z) > 3.14159 AND Z > THEN Z = 


Z - 6.28318 


REM CALC DISTANCE OF PLANET FROM EARTH Q 




Q = SQR (DCI) " 2 + DC3) ' 2 - 2 * D(I) * 


DC3) * COS (Z)) 


REM CALC ANG. DIST. FROM SUN, X 




PP = CD CI) + D (3) + Q) / 2 


J'"-, 


X = 2 * FN ACO( SQR (CCPP * CPP - D(I))) 


/ CD(3) * Q)))) 


REM CALC RIGHT ASCENSION, R 




IF Z < THEN R = FN DEG(A(3) + 3.14159 


- X) / 15 


IF Z > THEN R = FN DEGCAC3) + 3.14159 


+ X ) / 1 5 '■ 


IF R > 24 THEN R = R - 24: GOTO 1990 




IF R < - 24 THEN R = R + 24: GOTO 2000 




IF R < THEN R = R + 24: GOTO 2010 




REM CALC DECLINATION, V 




IF Z < THEN V = SIN {AC3) + 3.14159 - 


X) * 23.44194 + FN DEG(L CD) 


IF Z > THEN V = SIN CAC3) + 3.14159 + 


X) * 23.44194 + FN DEGCL CD) 


X = FN DEG(X) 




RETURN 




RA = R CPS) 
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2080 

2090 

2100 

2110 

2120 

2130 

2U0 

2150 

2160 

21 70 

2180 

2190 

2200 

2210 

2220 

2230 

22AO 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2 44 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 



DE 



M CPS ) 



REM 



JUMPS PRINTING RA AND DEC IF NEW INTERVAL 
IF F9 = 1 THEN 2 210 
IF F9 = 2 THEN 2210 



PRINT 
RA$ = 
RA$ = 



: PRINT 

STR$ (RA) :DE$ 



STR$ (DE) 
LEFTS (RA$^5>:DE$ = LEFTS CDE5,5) 

PRINT "R.A. OF ";P$(PS>;" IS ";RA$ 

PRINT "DECLINATION IS ";DE$ 

PRINT 

PRINT "PRESS RETURN TO DISPLAY PLANET," 

INPUT "SUN, OR MOON ON STAR CHART ";A$ 

REM STORES RA FOR SELECTED PLANET 
R3 = RA : DC = DE 

G0SU8 2250: GOTO 2360 

REM ASCII COOES FOR POKING PLANETS 

REM AS FLASHING SYMBOLS 

IF PS = 1 THEN P$ = "MERCURY":P = 107: GOTO 2350 

IF PS = 2 THEN PJ = "VENUS" :P = 86: GOTO 2350 
"SUN":P = 79: GOTO 2350 
"HARS":P = 77: GOTO 2350 
"JUPITER":P = 74: GOTO 2350 
"SATURN":P = 83: GOTO 2350 
"URANUS":P = 85: GOTO 2350 



IF PS 

IF PS 

IF PS 

IF PS 

IF PS 

IF PS 

IF PS 

IF PS 



GOTO 2350 
GOTO 2350 



THEN PJ 
THEN P$ 
THEN P$ 
THEN PI 
THEN P$ 
THEN PS 

8 THEN P$ = "NEPTUNE":P = 78: GOTO 2350 

9 THEN PS = "PLUTO" :P = 80: 

10 THEN P$ = "MOON":P = 105 
RETURN 
REM 

IF F9 = 1 OR F5 = 1 GOTO 2390 
PN = P 

REM SELECT STAR CHART FOR DISPLAY 

GOSUB 2440 

IF F9 = 1 THEN 6580 

IF (F7 = 1 AND F5 = 1) THEN RETURN 

GOTO 2720 . ■ ■ 

REM SELECT CHART AND ADJUST 

REM HORIZONTAL PLOT 
PDE = DE 

REM JUMPS CHART SELECTION IF SHOWING OTHER PLANETS 



IF F9 

IF RA 

IF RA 

IF RA 

IF RA 

IF RA 

IF RA 

IF RA 

IF RA 

IF RA 

IF RA 

IF RA 
CH = 1 

IF F9 

IF F5 



1 OR F5 
22 AND RA 
20 AND RA 
1 8 AND RA 
16 AND RA 
14 AND RA 
12 AND RA 
10 AND RA 
8 AND RA < 
6 AND RA ' 
4 AND RA < 

2 AND RA " 



1 THEN GOTO 2610 

< 23.99999 THEN RA 

< 21 .99999 THEN RA 

< 1 9. 99999 THEN RA 

< 17.99999 THEN RA 

< 15.99999 THEN RA 

< 13.99999 THEN RA 

< 11.99999 THEN RA 
9.99999 THEN RA = 
7.99999 THEN RA = 
5-99999 THEN RA = 
3.99999 THEN RA = 



RA 
RA 
RA 
RA 
RA 
RA 
RA 



22:CH 
20:CH 
1 S: CH 
16:CH 
14:CH 
12:CH 
10:CH 



12 
11 
10 



RA - 8:CH = 5; 

RA - 6:CH = 4; 

RA - 4:CH = 3; 

RA - 2:CH = 2: 



GOTO 2640 
GOTO 2640 
GOTO 2640 
9; GOTO 2640 
8: GOTO 2640 
7: GOTO 2640 
6: GOTO 2640 
GOTO 2640 
GOTO 2640 
GOTO 2640 
GOTO 2640 



1 THEN 
1 THEN 



GOSUB 6790 
GOSUB 6790 
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2630 

2640 

26 5 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

28D0 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2 880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3050 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

5160 



IF F7 = 1 

IF F9 = 1 

IF F5 = 1 
RA - RA * 

IF (RA - 
PL - INT 

IF F5 - 1 
PX = PL 

RETURN 

R 



THEN 
THEN 
THEN 

1 5 
INT 

(1 -3 
THEN 



RETURN 
GOSUB 6670 
60SUB 



CRA) ) ; 
* RA ) 
GOTO 



6 670 

.49 THEN RA = 1 + INT CRA) 
2710 



RETURN 

REM IN EACH CHART POKE PL,P 

REM WHERE P IS NAME OF PLANET 

REM SUCH AS +, V, M , J , S , U, N, P, , 3 

HOME 



RE 

HOME 
S = 1487 
GOSUB 2790 
GOTO 2930 

REM SUB FOR ABOVE 
= 10 THEN CF 
OEG(L (PS)) 
INT (CF) > .49 THEN CF = CF + 1 



IF PS 

C F = FN 

IF CF - 

CF = INT 

C F < 

CF > 



AND BELOW ECLIPTIC PLANE 
GOTO 2820 



^ HE 



(CF) 

- 9 OR CF 
AND C F < 
9 AND C F > 
AND C F > 

- 4 
C F 



CF 

CF 

CF 
= S 
RETURN 
REM 

RETURN 
FOR J = 1 
VTAB 12: PR INT 
NEXT J 
PR INT 
GOTO 5290 
HOME 



AND 



• 8 THEN S = 0:OCS = "OFF CHART": GOTO 2910 

, THEN CF = 128 * CF: GOTO 2890 

5 THEN CF = CCF * 128) - 984 
- 5 THEN CF = 128 * CF: GOTO 2890 
> - 10 THEN CF = 984 + 128 * CF: 



GOTO 2890 

GOTO 2890 



N 

PRINT ECLIPTIC 

TO 39 



STEP 
TABC 



2 

J>"-"; 



PRINT 
'WANT A 
: PRINT 
= "H" 



PRINT 

PRINT : 

IF A$ = 

IF A$ < 

REM RESE 
RA = 0: DE 
Y = Y2:M 

F9 = 0:F8 = 0:F6 
FL = 0: F1 =0 

HOME : PRINT 

GOTO 770 

HOME 



PRINT : PRINT 
OTHER PLANET, SAME 

• INPUT " " 

GOTO 3100 
PRINT ■ 



DATE? 
A$ 



Y/N 



.. THEN ^ -.^^ 

> "Y" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 2990 
T Y,M,D TO ORIGINAL SELECTION 
= 0:RA$ = "":DE$ = "" 



0: RAJ = 
= M2: D = D2 



= 
F2 = 0: F5 
: PRINT : 



= 0: F4 
PR INT 



= 0: F5 = 0:F7 = 0: FX = 



PR INT 



PR INT 

SAME PLANET? Y/N " 

_ ";A$ 

THEN HOME : PRINT : PRINT : GOTO 
THEN PRINT "INVALID RESPONSE": 
PL = P2:F9 = 0:FL = 0:F1 = 0:F2 = 0:F5 = 0:F4 
= 0:F8 = 0:FX = 



PRINT 
PRINT 
PR INT 
IF A$ 
IF A$ 



_ _ PRINT 
'WANT ANOTHER DATE, 
: PRINT : INPUT 
: "N" 
< > "Y" 



3200 

. PR INT : GOTO 

= 0: F5 = 0: F6 = 0: F7 



3120 
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3170 


F9 = 2 


5180 


SOTO 480 


3190 


PRINT 


3200 


PRINT "WANT ANOTHER DATE, ANOTHER PLANET? Y/N " 


3210 


PRINT : PRINT 


3220 


INPUT ■' ";A$ 


3230 


IF A$ = "N" THEN HOME : GOTO 3280 


3240 


IF A$ < > "Y" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 3200 


3250 


HOME 


3260 


FL = 0:F1 = 0:F2 = 0:F3 = 0:F4 = 0:F5 = 0:F6 = 0:F7 = 0:F9 = 0:F8 = 


3270 


FX = 0: GOTO 480 


3280 


END 


3290 


REM SELECT ZODIACAL CHART REGION 


3300 


IF CH = 1 GOTO 3660 • ■ 


3310 


IF CH = 2 GOTO 3910 - 


3320 


IF CH = 3 GOTO 4160 


3330 


IF CH = 4 GOTO 4530 


3340 


IF CH = 5 GOTO 4580 


3350 


IF CH = 6 GOTO 4810 


3360 


IF CH = 7 GOTO 5020 


3370 


IF CH = 8 GOTO 5170 


3380 


IF CH = 9 GOTO 5280 


3390 


IF CH = 10 GOTO 5510 . • . ■ 


3400 


IF CH = 11 GOTO 5720 


3410 


IF CH = 12 GOTO 5930 


3420 




3450 


IF IN > 1 THEN F6 = 1 : GOTO 5520 " 


5440 


INPUT "OTHERS? Y/N ";A$ 


3450 


IF A$ = "N" THEN F6 = 1 : GOTO 3520 


3460 


IF A$ < > "Y" THEN GOTO 3440 


3470 


IF A$ = "Y" THEN F5 = 1 


3480 


F6 = ' 


5490 


REM SUB TO PLOT OTHER PLANETS 


3500 


CF = 


3510 


GOSUB 6120 


3520 


REM CHECKS IF MORE CYCLES 


3530 


IF NC < IN GOTO 3560 


3540 


IF NC > = IN GOTO 3590 


3550 


REM SUB TO INCREASE DATE BY INTERVAL AND REPEAT PROGRAM 


3560 


GOSUB 6480 


3570 


IF F9 = 1 THEN GOTO 3530 


3580 


REM RESETS F9 WHEN ALL CYCLES COMPLETED 


5590 


REM RESETS NC,D,M AND Y TO INITIAL VALUES i 


3600 


NC = 1 :0 = D2:M = H2:Y = Y2 Vf 


3610 


PS=P2:RA=R3:DE=DC ' . 


3620 


P = PN:PL = PX 


3630 


INPUT "PRESS RETURN TO CONTINUE ";AS 


3640 


: 


3650 


GOTO 2980 


5660 


REM CHART 1 PISCES 


3670 


C$ = "PISCES" 


5680 


GOSUB 5700 


3690 


GOTO 3810 


5700 


IF FN DE6CLCPS)) < - 10 THEN U$ = "OFF CHART BOTTOM" 
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3710 

3720 

3730 

3740 

3750 

3760 

3770 

5780 

3790 

5800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3950 

5940 

3950 

3960 

5970 

5980 

3990 

4000 

4010 

4020 

4050 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4150 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 



FN DE6CL<PS)) > 
VTAB 2 



IF 



10 THEN W$ = "OFF CHART TOP' 



PRINT P$, 
VTAB 3 
PRINT "ON 
VTAB 4 
IF LEFTS 
PRINT 

w$ = ■■ 



IS IN 
;Y2; 



;C$; 



';W$ 



';M2;" ";D2 



VTAB 4 

IF LEFTS CWS,3) = "OFF" THEN GOTO 57 

PRINT "AS DISPLAYED ON CHART BELOW" 

RETURN 

ij-rno -p. nnTUT T«ci/ Ci \ " n 



90 



RETURN 

VTAB 7: PRINT 
VTAB 7: PRINT 
VTAB 10: PRINT 
VTAB 1 1 : PRINT 
VTAB 13: PRINT 



T ABt y J . 
TAB( 5) "*" 
TABC 58)"." 



ARIES 



TABC 9) ' . 
VTAB 7: PRINT TABC 37)"*' 
VTAB 10: PRINT TABC 23)". 
VTAB 1 1 : PRINT TAB C 19)" 
VTAB 13: PRINT TABC 5)".' 
VTAB 15: PRINT TABC 9)' 
VTAB 19: PRINT 
VTAB 20: PRINT 
POKE S - PL,P 
GOTO 7190 
REM CHART 

CS = "ARIES" 
G0SU8 5700 
VTAB 5 

PR INT TABC 33) "X" 
VTAB 6 

PRINT TABC 37)"*" ' 

VTAB 7 

PR INT TABC 37) "." 
VTAB 10 

PRINT TABC 4)". : :" 
VTAB 10 

PRINT TABC 15)"." 
VTAB 15 

PRIMT TABC 36)"." 

VTAB 16 

PR INT TABC 27) "." 

VTAB 19 

PRINT TABC 33)"." 

VTAB 18 

PRINT TABC 5)"*"; TABC 16)". ." 

VTAB 21 

PRINT TABC 24)"*"; TABC 30)"*" 

POKE S - PL,P 

GOTO 7190 

REM CHART 3 TAURUS 
C$ = "TAURUS" 

GOSUB 3700 

VTAB 6 

PRINT TABC 11)"*" 

VTAB 13 

PRINT TABC 9)"*"; TABC 19)"."; TABC 29)' 

VTAB 14 

PRINT TABC 30)"." 

VTAB 16 
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PI WTC fr-r^nttr,,,t~,^\ 












A26D 


PRINT TAB( 27)"X"; 


TABC 


29) 


':"; TABC 32)"." 


A270 


VTAB 21 








4280 


PRINT TABC 21)"." 








4290 


VTAB 22 








4300 


PRINT TABC 10)"."; 


TABC 


22) 


' ." 


4310 


POKE S - PL,P 








4320 


GOTO 7190 








4330 


REM CHART 4 GEMINI 








4340 


C$ = "GEMINI" 








4350 


GOSUB 3700 








4360 


VTAB 6 








4370 


PRINT TABC 6)"*" 








4380 


VTAB 7 








4390 


PRINT TABC 9)"." 








4400 


VTAB 8 








4410 


PRINT TABC 6)"." 








4420 


VTAB 9 








4430 


PRINT TABC 23)"*" 








4440 


VTAB 11 








4450 


PRINT TABC 15)"*" 








44 60 


VTAB 13 








4470 


PRINT TABC 19)"."; 


TABC 


31)' 


'*"; TABC 33)"*" 


44 80 


VTAB 14 








4490 


PRINT TABC 29)"." 








4500 


VTAB 16 








4510 


PRINT TABC 26)"*" 








4520 


VTAB 19 








4530 


PRINT TABC 23)"." 








4540 


VTAB 22 








4550 


PRINT TABC 11)"*" 








4560 


POKE S - PL,P 








4570 


GOTO 7190 








4580 


REM CHART 5 CANCER 








4590 


C$ = "CANCER" 








4600 


GOSUB 3700 








4610 


VTAB 9 








4620 


PRINT TABC 26)"." 








4630 


VTAB 10 








4640 


PRINT TABC 25)"." 








4650 


VTAB 14 








4660 


PRINT TABC 6)"*" 








4670 


VTAB 15 








4680 


PRINT TABC 19)"." 




■; i 




4690 


VTAB 18 








4700 


PRINT TABC 18)"*"; 


TABC 


21)' 


'* " 


4710 


VTAB 19 








4720 


PRINT TABC 26)"."; 


TABC 


29)' 


'* " 


4730 


VTAB 20 






t 


4740 


PRINT TABC 12)"."; 


TABC 


23)' 


' ." 


4750 


VTAB 21 








4760 


PRINT TABC 20)"." 








4770 


VTAB 22 








4780 


PRINT TABC 22)"." 








4790 


POKE S - PL,P 








4800 


GOTO 7190 
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ni 1 


tiTC (-, *; ^^\ 








4810 


REM CHART 6 LEO 




A820 


C$ = "LEO" 




4830 


GOSUB 3700 




A840 


VTAB 5 




4850 


PRINT TABC 20)"*"; TABC 36)"*" 




4860 


VTAB 6 




4870 


PRINT TABC 15)"." 




4880 


VTAB 7 




4890 


PRINT TABC 3)"."; TABC 37)"." 




4900 


VTAB 8 




4910 


PRINT TAB( 7)"," 




4920 


VTAB CIO) 




4930 


PRINT TABC 14)"."; TABC 19)"." 




4940 


VTAB 11 




4950 


PRINT TABC 3)"*"; TABC 28)"."; TABC 36)"X" | 


4 96 


VTAB 14 




4970 


PRINT TABC 7)"." 




4980 


VTAB 18 




4990 


PRINT TABC 12)"." 




5000 


POKE S - PL,P 




5010 


GOTO 7190 




5020 


REM CHART 7 VIRGO 




5030 


C$ = "VIRGO" 




5040 


GOSUB 3700 




5050 


VTAB 5 




5060 


PRINT TABC 14)"*"; TABC 26)"*" 




5070 


VTAB 9 




5080 


PRINT TABC 27)"*" 




5090 


VTAB 11 


< 


5100 


PRINT TABC 19)"."; TABC 33)"*" 




5110 


VTAB 14 




5120 


PRINT TABC 14)"X" 




5130 


VTAB 21 




5140 


PRINT TABC 24)"*" 




5150 


POKE S - PL,P 




5160 


GOTO 7190 




5170 


REM CHART 8 LIBRA 




5180 


C$ = "LIBRA" 




5190 


GOSUB 3700 




5200 


VTAB 6 




5210 


PRINT TABC 18)"*" 




5220 


VTAB 11 




5230 


PRINT TABC 22)"*" 


^ . 


5240 


VTAB 19 


;' / 


5250 


PRINT TABC 16)"." 


J 


5260 


POKE S - PL,P 


5270 


GOTO 7190 


'" ^ 


5280 


REM CHART 9 SCORPIO 


' ' 


5290 


CS = "SCORPIO" 




5300 


GOSUB 3700 




5310 


VTAB 5 




5320 


PRINT TABC 8)"."; TABC 13)"." 




5330 


VTAB 7 




5340 


PRINT TABC 10)"*"; TABC 18)"*" 




5350 


VTAB 10 
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5560 PRINT TAB( 36)"*" 

5370 VTAB 13 

5380 PRINT TABC 37)"*" 

5390 VTAB 1A 

5400 PRINT TABC 29)"*" 

5410 VTAB 15 

5420 PRINT TABC 27) "X" 

5430 VTAB 16 

5440 PRINT TABC 37) 

545D VTAB 17 

5460 PRINT TABC 25)"*" 

5470 VTAB 21 

5480 PRINT TABC 21 )"* " 

5490 POKE S - PL,P 

5500 GOTO 7190 

5510 REM CHART 10 SAGITTARIUS 

5520 CI = "SAGITTARIUS" 

5530 GOSUB 3700 

5540 VTAB 10 

5550 PRINT TABC 29)"." 

5560 VTAB 11 

5 5 70 PRINT TABC 18)"."; TABC 21)"." 

5580 VTAB 14 

5590 PRINT TABC 30)"*" 

5600 VTAB 15 

5610 PRINT TABC 22)"*" 

5620 VTAB 16 

5630 PR INT TABC 24>" ." 

5640 VTAB 17 

5650 PRINT TABC 24)"*"; TABC 36)"*" 

5660 VTAB 18 

5670 PRINT TABC 20)"*" 

5680 VTAB 22 

5690 PRINT TABC 51)"*" 

5700 POKE S - PL,P 

571 GOTO 71 90 

5720 REM CHART 11 CAPRICORNUS 

5730 C$ = "CAPRICORNUS" 

5740 GOSUB 3700 

5750 VTAB 5 

5760 PRINT TABC 6) "*" 

5770 VTAB 6 

5780 PRINT TABC 20)"."; TABC 30)"*" 

5790 VTAB 8 

58 00 PRINT TABC 30)"*" t' .' 

5810 VTAB 13 

5820 PRINT TABC 13)"."; TABC 18)"*" 

5830 VTAB 14 

5840 PRINT TABC 6)"*"; TABC 8)"*" 

5850 VTAB 17 

5860 PRINT TABC 13)".." 

5870 VTAB 18 

5880 PRINT TABC 26)"." 

5 890 VTAB 19 

5900 PRINT TABC 20)"."; TABC 25)"." 
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PLNTF (continued)- 



5910 


POKE S - PL,P 






5920 


GOTO 7190 




5930 


REM CHART 12 AQUARIUS 




5940 CS = "AQUARIUS" 




5950 


GOSUB 3700 




5960 


VTAB 5 




5970 


PRINT TABC 7)"."; TAB( 14)". "; TABC 33)"*" 




5980 


VTAB 6 




5990 


PRINT TABC 5)"."; TABC ID"."; TABC 25)"*'; 


TABC 29)" 


6000 


VTAB 13 




6010 


PRINT TABC 23)"." 




6020 


VTAB 16 




6030 


PRINT TABC 18)".." 




6040 


VTAB 17 




6050 


PRINT TABC 26)"." 




6060 


VTAB 19 




6070 


PRINT TABC 26)"*" 




6080 


VTAB 20 




6090 


PRINT TABC 2)"*" 




6100 


POKE S - PL,P 




6110 


GOTO 7190 




6120 


REM SUB TO PLOT NEARBY PLANETS 




6130 


PN = P 




6140 


FOR I = 1 TO 10 




61 50 


PS - I: F5 ^ 1 




6160 


REM JUMPS R RANGE IF BEEN THROUGH TABLE ONCE 


6170 


IF F4 = 1 THEN 6300 




6180 


IF CH = 1 THEN R2 = 0: GOTO 6300 




6190 


IF CH = 2 THEN R2 = 2: GOTO 6300 




6200 


IF CH = 3 THEN R2 = 4: GOTO 6300 




6210 


IF CH = 4 THEN R2 ^ 6: GOTO 6300 




6220 


IF CH = 5 THEN R2 - 8: GOTO 6300 




6230 


IF CH = 6 THEN R2 = 10 


GOTO 6300 




6240 


IF CH = 7 THEN R2 = 12 


GOTO 6300 




6250 


IF CH - 8 THEN R2 = 14 


GOTO 6300 




6260 


IF CH = 9 THEN R2 = 16 


GOTO 6300 




6270 


IF CH = 10 THEN R2 = 18: GOTO 6300 




6280 


IF CH = 11 THEN R2 = 20: GOTO 6300 




6290 


IF CH = 12 THEN R2 = 22 




6300 


IF RCI) < R2 OR RCI) > CR2 + 1.99999) THEN 


GOTO 6410 


6310 


REM GET PLANET SYMBOL 




6320 


GOSUB 2250 




6330 


RA = R CI):DE = VCI) 


1] 


6340 


REM GET POKE FOR PLANET .; 


6350 


GOSUB 2440 "^ 


6360 


IF F7 = 1 THEN F7 = 0: GOTO 6400 




6370 


CF = 0:S = 1487 


6380 


GOSUB 2790 




.' 



6390 POKE S - PL,P 

6400 F4 = 1 

6410 NEXT 1 

6420 PS = P2 

6430 P = PN 

6440 GOSUB 7210 

6450 RA = R3:DE = DC 



1 
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r 

1 




-PLNTF (continued) 


n 




6^60 


F4 = 0:F5 - 0:F = 1: RETURN 






6470 


REM INCREASE COUNTER BY ONE 






6i80 


fJC = NC + 1 






6490 


PS = P2 






6500 


F9 = 1 




L 


6510 


D = D + TI 




1 


6520 


REM INCREMENTS DATE 




r 


6530 


IF D > 30 THEN D = - 30:M = M + 1: GOTO 6530 






6540 


IF M > 12 THEN M=M-12:Y=Y+1 






6550 


REM GOES THROUGH PROG. AGAIN FOR NEW DATE 






6560 


GOSUB 820 






6570 


REM PLOT PLANET'S NEW POSITION 






6580 


IF F7 = 1 THEN F7 = 0: GOTO 6600 






6590 


POKE S - PL,P 






6600 


REM POKEOTHERPLANETSONNEyOATE 






6610 


IF F6 = 1 THEN 6630 






6620 


F9 = 0: GOSUB 6120 






6630 


REM REPEATS IF MORE INTERVALS " ■ 






6640 


F9 = 1 






6650 


RETURN 






6660 


REM ADJUST RA PLOT TO CHART 






6670 


IF RA > 22 AND RA < 23.99999 THEN RA = RA - 22: RETURN 






6680 


IF RA > 20 AND RA < 21.99999 THEN RA = RA - 20: RETUKN 






6690 


IF RA > 18 AND RA < 19.99999 THEN RA = RA - 18: RETURN 






6700 


IF RA > 16 AND RA < 17.99999 THEN RA = RA - 16: RETURN 






671 


IF RA > 14 AND RA < 15.99999 THEN RA = RA - 14: RETURN 






6720 


IF RA > 12 AND RA < 13.99999 THEN RA = RA - 12: RETURN 






6730 


IF RA > ID AND RA < 11.99999 THEN RA = RA - 10: RETURN 






6740 


IF RA > 8 AND RA < 9.99999 THEN RA = RA - 8: RETURN 






6750 


IF RA > 6 AND RA < 7.99999 THEN RA = RA - 6: RETURN '" 






6760 


IF RA > 4 AND RA < 5.99999 THEN RA = RA - 4: RETURN • ' 






6770 


IF RA > 2 AND RA < 3.99999 THEN RA - RA - 2: RETURN 






6780 


RETURN 






6790 


IF CH = 1 THEN GOTO 6920 






6800 


IF CH = 2 THEN GOTO 6940 






6810 


IF CH = 3 THEN GOTO 6960 






6820 


IF CH = 4 THEN GOTO 6980 ' 






6830 


IF CH = 5 THEN GOTO 7000 






6840 


IF CH = 6 THEN GOTO 7020 






6850 


IF CH = 7 THEN GOTO 7040 






6860 


IF CH = 8 THEN GOTO 706 /"/ ' 
IF CH = 9 THEN GOTO 7080 --' ^ I 
IF CH = 10 THEN GOTO 7100 'A 






6870 






6880 






6890 


IF CH = 11 THEN GOTO 7120 < ^ ^' ■'" 






6900 


GOTO 7140 • {'{ 






6910 


REM REJECT OBJECTS NOT ON CHART , ■ ' 






6920 


IF RA > 1.99999 THEN GOTO 7160 






6930 


RETURN 






6940 


IF RA < 2 OR RA > 3.9999 THEN GOTO 7160 






6950 


RETURN 






6960 


IF RA < 4 OR RA > 5.99999 THEN GOTO 7160 






6970 


RETURN 






6980 


IF RA < 6 OR RA > 7.99999 THEN GOTO 7160 






6990 


RETURN 






7000 


IF RA < 8 OR RA > 9.99999 THEN GOTO 7160 




L 
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■PLNT¥ (continued) ■ 



7010 

7020 

7030 

70iO 

7050 

7060 

7070 

7080 

7090 

7100 

7110 

7120 

71 3D 

7140 

7150 

7160 

7170 

71 80 

7190 

7200 

7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7300 

7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 



RETURN 

IF RA < 10 OR RA > 11.99999 THEN GOTO 7160 

RETURN 

IF RA < 12 OR RA > 13.99999 THEN GOTO 7160 

RETURN 

IF RA < 14 OR RA > 15.99999 THEN GOTO 7160 

RETURN 

IF RA < 16 OR RA > 17.99999 THEN GOTO 7160 

RETURN 

IF RA < 18 OR RA > 19.99999 THEN GOTO 7160 

RETURN 

IF RA < 20 OR RA > 21.99999 THEN GOTO 7160 

RETURN 

IF RA < 22 OR RA > 23.99999 THEN GOTO 7160 

RETURN 
F7 = 1 

PRINT PSCPS);" OFF CHART"; 

RETURN 

VTAB 23 

GOTO 3420 

REM POKE MOON 

REM LONG OF MOON 
LZ = 311.1687:LP = 255.7433:LE = 178.699 
NM = NI - . 5 
PG = .11 1404 * NM + LP 

IF PG < - 3600 THEN PG = PG + 3600: GOTO 7260 

IF PG < - 360 THEN PG = PG + 360: GOTO 7270 

IF PG < THEN PG = PG + 360 

IF PG > 3600 THEN PG = PG - 3600: GOTO 7290 
IF PG > 360 THEN PG = PG - 360: GOTO 7300 
LMD ^ LZ + 360 * NM / 27.32158 
PG = LMD - PG 

DR ^ 6.2886 * SIN C FN RAD(PG)) 
LMD = LMD + DR 
IF LMD < - 3600 THEN LMD = LMD + 3600: GOTO 7350 
IF LMD < - 360 THEN LMD = LMD + 360: GOTO 7360 
IF LMD < THEN LMD = LMD + 360: GOTO 7370 
IF LMD > 3600 THEN LMD - LMD - 5600: GOTO 7380 
IF LMD > 360 THEN LMD = LMD - 360: GOTO 7390 

RM = LMD / 15 

RQ = RM 
IF RM > 24 THEN RM = RM - 24: GOTO 7420 
IF RM < THEN RM = RM + 24 

AL = LE - NM * .052954 
IF AL < - 3600 THEN AL = AL + 3600: GOTO 7450 
IF AL < - 360 THEN AL = AL + 360: GOTO 7460 
IF AL < THEN AL = AL + 360: GOTO 7470 
IF AL > 3600 THEN AL - AL - 3600: GOTO 7480 
IF AL > 360 THEN AL = AL - 360: GOTO 7490 

AL = LMD - AL 
IF AL < THEN AL = AL + 360 
IF AL > 360 THEN AL = AL - 360 

HE = 5.1333 * SIN (AL * 3.14159 / 180) 

DM = HE + 23.1444 * SIN CLMD * 3.14159 / 180) 

R CI 0) = RM : VC1 0) = DM 
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7560 


P$(10) ~ "MOON" 


7570 


RETURN 


7 580 


GOSUB 2090: 60SUB 2470 


7590 


IF RA < OR RA > 1 .99999 THE^ 


7600 


GOTO 2090 


7610 


PRINT "MOON OFF CHART" 


7620 


RETURN 



■PINJ¥ (con tin ued)- 



17 




Photo Credit: NAUA/jel Fropukion Laboratory 

to is one of the four Galilean satellites of }upiter. All 
four are strange, planet-sized worlds, ranging from lo 
with its active volcanoes to the frigid outer worlds of 
Ganymede and Gallisto. These large satellites are 
shown in this montage of pictures returned by the 



Voyager spacecraft, lo is bottom right; Europa, bot- 
tom left; Ganymede, top right; and Gallisto, top left. 
Their sizes are shown proportionately; Ganymede is 
slightly larger than the planet Mercury. 



163 



Program 1B; JSATS 



Positions of Galilean Satellites of Jupiter for Any Date 
and Time. 

In 1 610 Galileo in Padua startled his contemporaries with his discov- 
ery that Jupiter has four large satellites. He thereby provided evidencethat 
ultimately helped to shatter the dogma of an Earth-centered universe and 
led to theCopernican revolution of human thought. In Paris 65 years later, 
Roemer used the timing of the motion of these satellites to measure the 
velocity of light across Earth's orbit. His observations showed that light 
travels at 186,000 miles per second. 

Even the smallest telescope reveals the four Galilean satellites of 
Jupiter moving over the course of days from side to side of the planet. The 
close-up photographs returned by the Voyager spacecraft revealed much 
greater detail, lo, the innermost of the large moons, is a volcanic world of 
brimstone and sulfur with volcanic fountains shooting material hundreds 
of miles into space. It is a world torn by the gravities of mighty Jupiter and 
the other satellites, and bombarded by energetic particles trapped in the 
magnetic field of the giant planet. Europa is a very different but equally 
strange world. At first it appeared to be as smooth as a bowling ball, but It 
was later revealed as a world whose icy surface is marked by an intricate 
pattern of eggshell-like cracks. Mighty Ganymede, larger than the planet 
Mercury, displays several different types of terrain, very different from the 
surfaces of lo and Europa. There are great plains patterned by strange 
areas of grooves and ghostlike rings of ruined craters. Unlike the inner 
satellites, Ganymede has regions of heavily cratered terrain. The outer- 
most of the big satellites, Callisto, is more like our Moon. Its surface is 
pockmarked with innumerable craters. 

This program allows you to compute the positions of the four satellites 
relative to Jupiter as seen from Earth, and it identifies the satellites. 

With the program you will never be in doubt as to the identity of each 
of the four starlike objects. The program can be used woddwide; it asks for 
your time zone and local time. (Times are displayed in both universal and 

local time.) It will display several time intervals on the screen. More can be 
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requested, but the display will scroll on the screen after these have been 
displayed. If you habitually need more time intervals displayed together 
on the monitor screen, you can tighten the display by eliminating instruc- 
tions 1410 and 1500. 

The display can be oriented with either north or south at the top to suit 
observers with different types of telescopes and for Northern or Southern 
Hemisphere viewing. 

When you run this program, the computer first displays the distances 
of the satellites in terms of Jupiter radii for exact observations (see Figure 
18.1). When you are ready to continue it displays the satellites and the 
planet, identified as follows: J, Jupiter; I, lo; E, Europa; G, Ganymede; and 
C, Callisto (see Figure 18.2). 



DISTANCE IN TERMS OF JUPITER RADII 
HHICH IS 7J.100 KM OR 44.188 MI 

FOR DATE 1982 3 3 AT 22 HRS TIME ZONE 8 
FOR DATE 1982 3 4 AT 6 HRS UT 



10 <I > 

EUROPA <E).. 
GANYMEDE <G> 
CALLISTO <C> 



3.7321?2i9 
7.37278993 
-14.8749533 
16.3764096 



MINUS IS TO LEFT OF JUPITER 
PLUS IS TO THE RIGHT 

HITH S AT TOP 



FOR GRAPHIC DISPLAY PRESS RETURHl 



The I SATS program provides this information in its first display, tt gives the distances of the 
Galilean satellites from Jupiter in terms of Jovian radii (44, 180 miles). 

Figure 18.1 ■ 
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JUPITER, J 
gUROPA . . . E 
CALL I ST C: 



1982 3 3 AT 



J982 3 4 AT 



1982 3 5 AT 



10 

GANYMEDE G 



22 HR ZONE 8 
. UT 6 MRS I 4 

J I E 



22 HR ZONE 8 
UT 6 HRS 3 5 

G 1 J E C 



22^HR ZONE^a 
UT 6 HRS 3 6 

E CIJ G 



DO YOU HANT ANOTHER DATE Y/N? 



Next the jSATS program generates a graphic display showing the positions of the satellites 
relative to Jupiter. For this display three configurations were selected. 24 hours apart The 
movements of the satellites relative to the planet are clearly shown ' 



■Figure 18.2- 



Jupiter IS always centrally located on the display line. It also shows 
which format, north or south at top, is being used. The program does not 
show positions out of the horizontal plane, so sometimes if two of the 
satellites are visible, one slightly above the other at the same angular 
distance from Jupiter, the display shows them side by side. You can quickly 
ascertam which is which by asking for displays a few hours on either side 
The display also shows the satellites alongside Jupiter when in occupation 
or transit-they are not erased from the screen. Again, by asking for other 
displays at earlier times you can identify transits and occultations With 
north at top, satellites moving toward Jupiter from the right of the planet 
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will go into occultation behind Jupiter; those moving in the opposite direc- 
tion will go into transit across Jupiter. With south at top, satellite movement 
from the right results in transit and from the left it results in occultation. 

You can add to the program and simplify the sorting out of occultations 
and transits by showing an orbit projection, using the high resolution 
graphics technique given in the MARSP program. 

The program first calculates the number of days from the epoch of 1900, 
adjusting for time and time zone. It uses this calculation to determine the 
position of each satellite in its orbit around Jupiter at the requested date 
(instructions 920 through 1040). Next it determines the relative positions 
of Earth and Jupiter at the requested date (Instructions lOSOthrough 1 120) 
and corrects for the viewing angle from Earth. Then it calculates the radial 
distance of each satellite from Jupiter (in terms of the radius of Jupiter) as 
viewed from Earth's position, and it displays this information on the 
monitor screen. When you are readyto continue, the program uses a simple 
sort subroutine (starting at instruction 2100) to arrange the satellites in the 
correct order. They can then be displayed together with Jupiter on one 
line across the screen, at proportional distances from Jupiter. 

Next the program increments the time and date as requested and 
develops a second and third display. Housekeeping routines adjust for 
month and year ends in the display of dates for each configuration of the 
satellites. 

As with other programs, you may have to change HOME statements 
(instructions 30, 200, 370, 660, 1380, 1570, 2060, and 2080) and change 
RETURN to ENTER in instruction 1560. 

The listing of the JSATS program follows. 



fr 
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J SATS 



10 

20 

30 

40 

50 

60 

70 

8 

90 

100 

110 

120 

130 

140 

1 50 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

38 

390 

400 

410 

420 

430 

440 
450 
460 
470 
480 
490 
500 
510 
520 



CLEAR 

REM SATELLITES OF JUPITER 

HOME : PRINT : PRINT : PRINT : PRINT 

DIM Z$C4),BJ(4),Y$(4),MJ(2),DA$C2),LT$C5) 

DIM TZ$ (2),NIJ$(1),IN$(2) 

PRINT TABC Sr'AN ASTRONOMY PROGRAM" 

PRINT 

D D T M T X A O ,r ^ S If 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PR INT 
PRINT 
PR INT 
FOR K 
HOME 
PR INT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
INPUT 
IF A$ 
IF AJ 
FL = 
DEF 
HOME 



. R. A. S." 



TABC 6)" 

TABC 6)"I GALILEAN SATELLITES 
TABC 6)" 

; PRINT 
TABC 7)"BY ERIC BURGESS F 

12)"VERSI0N APR. 82" 

8)"ALL RIGHTS RESERVED BY" 
8)"S S T SOFTWARE SERVICE" 

: PRINT 

= 3000 TO 1 STEP - 1: NEXT 

PRINT 



I" 



TABC 

TAB C 
TABC 




. . TOP CY/N)? ";A$ 
1: GOTO 360 

'INVALID RESPONSE" 



PRINT : GOTO 3H0 



FN RAD CX) ^ CX ) 
PRINT : PRINT 



REM ENTER DATE 
LY = 0: PRINT "ENTER THE DATE" 
PRINT : PRINT 



PRINT 

INPUT 
IF Y = 
IF Y 7 
LY = 1 
PRINT 
INPUT 
M 
IF 



PR INT 

'YEAR "-YfrY = VAL CYS) " ' 

THEN PRINT "INVALID RESPONSE": PRINT 

4 - INT CY / 4> = AND Y / 100 - INT 



: GOTO 410 
Cy / 100) < 



> THEN 



PRINT 
INPUT 
IF DA 
IF LY 
IF LY 



MONTH ' 
VAL CMS) 
M = OR M 



;M£ 



12 THEN PRINT "INVALID RESPONSE": PRINT : GOTO 450 



"DAY ";D$; 
^ OR DA 
= 1 AND M 
= AND M 



DA = VAL 
> 31 THEN 
= 2 AND DA 
= 2 AND DA 



CD$) 
PRINT "INVALID RESPONSE": PRINT : GOTO 490 

< 30 THEN GOTO 550 

< 29 THEN GOTO 550 
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I SATS (continued)- 



530 
540 
550 
560 



570 
580 
590 IF 



IF M < > 2 THEN GOTO 550 

PRINT "INVALID RESPONSE": PRINT : GOTO 490 

PRINT : INPUT "TIME ZONE ";TZ$:TZ = VAL (TZ$) 

IF TZ < - 12 OR TZ > 12 THEN PRINT "INVALID RESPONSE" 

GOTO 550 

PRINT : INPUT "LOCAL TIME CDEC.HRS.) ";LT$ 

LT = VAL CLTS) 

< OR LT > 24 THEN PRINT "INVALID RESPONSE" 



PRINT 



600 

610 

620 

630 

640 

650 

660 

670 

680 

690 YP 

700 IF 



LT 
PRINT 

INPUT "HOy MANY 
IF ND < 1 OR ND 
PRINT 
INPUT 
IF IN 
HOME 



PRINT 



DISPLAYS 
> 5 THEN 



CI TO 5)? ";ND$:ND = VAL (ND$) 
PRINT "INVALID RESPONSE": PRINT 



GOTO 570 



GOTO 610 



710 
720 
730 
740 
750 
760 
770 
780 
790 
800 



"WHAT IS INTERVAL (UP TO 24 HR)? ";IN 
< OR IN > 24 THEN PRINT "INVALID RESPONSE": 
PRINT : PRINT : PRINT 
PRINT "PROGRAM RUNN ING . . . PLE AS E WAIT" 
L = 1 

Y :MP = M: DP = DA 
L > 1 GOTO 720 
UT = LT + TZ 
REM CORRECT FOR DAY MONTH AND YR ENDS 
IF UT > 24 THEN UT = UT - 24:DA = DA + 1 

(LY = 1 AND M = 2 AND DA = 30) THEN M = 3:DA = 1 

(LY = AND H = 2 AND DA = 29) THEN M = 3:DA = 1 

DA < 31 GOTO 790 

<M = 4 OR M = 6 OR M = 9 OR H 

DA > 31 THEN M = M + 1 : DA = 1 



PRINT : GOTO 640 



If 
IF 
IF 
IF 
IF 
IF 
IF 



GOTO 790 
GOTO 790 



= 11) THEN M = H + 1:DA = 1: GOTO 790 



H = 13 THEN M = 1 : Y = Y + 1 
FL = 1 THEN 820 
810 YP = Y :MP = M : DP = DA 
820 T = UT / 24 

830 YC = Y;MC = H:DC = DA + T 
840 IF MC > 2 THEN 880 
Y - 1 
H + 12 
INT (365.25 * YC) 



850 YC 
860 MC 
870 TD 
880 : 
890 
900 
910 
920 
930 



+ INT (CMC + 1) * 30.6001) + DC 



YZ = INT (YC / 100) 

REM CALC DAYS SINCE 1900 EPOCH 
I = TD - YZ + 2 + INT (YZ / 4) ■ 



694025.5 



DEG/DAY*NUHBR 
* 203.40586 + 
GOSUB 2290 

101 .2916323 
GOSUB 2290 

50.23451687 
: GOSUB 2290 



DAYS + POSTN AT EPOCH 
84. 55061 



REM 
A = I 
940 ZZ = A 
950 A = ZZ 

960 B = I * 101.2916323 + 41.50155 
970 ZZ = B 
980 B = ZZ 

990 C = I * 50.23451687 + 109.97702 
1000 ZZ = C 
1010 C = ZZ 

1020 D = I * 21.48798021 + 176.35864 
1030 ZZ = D: GOSUB 2290 
1040 D = ZZ 

1050 REM ORBITAL MOTION IN PERIOD 
1060 REM EARTH AND JUPITER 



./. 
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ISATS (continued)- 



1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 

1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 



= ( 



Pi 

11 

PI 

12 

ZZ 

P2 

11 

P2 

P2 

P3 

P2 

PI 

J 

13 = 

SQR 
13 = 
PI = 

REM 

51 = 

52 = 

53 = 1 

54 = 2 
IF FL 
IF SI 
IF SI 
IF S2 
IF S2 
IF S3 
IF S3 
IF S4 
IF S4 
IF L 
HOME 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

EM = M 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
IF f L 
PRINT 
PRINT 
INPUT 
HOME 
GOSOB 
REM 

LT = U 



2: 
Z 

2 + 
SI 

2 - 
SQR 
SIN 
7.2 
1 - 

3 * 
1 / 
CAL 
.90 
.39 
4.9 
6.5 

< 

< 

> 

< 

> 

< 

> 

< 

> 
> 1 
: P 

"D 

"W 



.9856003 + 358.476 
GOSUB 2290 

.0830853 + 225.328 
GOSUB 2290:12 = ZZ 
.9025179 + 221 .647 
GOSUB 2290 



C SI 
:n C F 
P3 
(28. 
C FN 
1958 * 
C SI 
57.2 
1 73 
.C RAD 
16 * 
'7 * 
'89 • 
S64 * 
> 1 
THE 
THE 
THE 
THE 
THE 
THE 
THE 
THE 
THEN 
'RINT 
ISTAN 
IHICH 



N C FN RADC2 * PD) / 50) 
N RAD (2 * 12)) * .1 673) + 



+ C SIN ( FN RADCPD) / .521) 
C SIN ( FN RAD(I2)) * 5.53 72) 



07 - ( COS ( FN RADCP2)) * 10.406)) 

RAD {P2) ) / PI ) 

( ATN C C SIN ( FN RAD(J ) ) ) / 
N ( FN RAO(J))) - 2))) 
958 



lAL DISTANCE FROM JUPITER 
SIN ( FN RADCA + 13 - P3 - 
SIN C FN RAD(B + 13 - P3 - 



SIN 

SIN 

THEN 

N 81 



( FN RAD CC 

C FN RADCD 

GOTO 1370 



51 = 

52 = 

52 = 

53 = 

53 = 

54 = 
S4 = 
GOTO 
PRINT 












1580 
: PRINT 



ABS 
ABS 
ABS 
ABS 
ABS 
ABS 
ABS 
ABS 



+ 13 
+ 13 

(SI ) 
(SI) 
(S2) 
(S2) 
(S3) 
(S3) 
(S4) 
(S4) 



- P3 - 

- P3 - 



(PI 

CP1 
CPl 
CPl 



203.405863))) 
1 01 .2916323))) 
' 50.23451687))) 
' 21.48798021))) 



GOTO 1310 

GOTO 1330 

GOTO 1350 

GOTO 1370 



CE IN TERMS OF JUPITER RADII" 
IS 71,100 KM OR 44,180 MI" 



'FOR DATE ";YP;" 
'FOR DATE ";y;" 



";MP;" ";DP;" AT ";LT;" HRS TIME ZONE ";TZ 
";M;" ";DA;" AT ";UT;" HRS UT" 



: PRINT 

TAB( 5)"I0 (I) ";S1 

TABC 5) "EUROPA (E) . . ";S2 

TAB( 5)"GANYME0E CG) ";S3 

TAB( 5)"CALLIST0 CC) ";S4 v 

: PRINT '.^ 

"MINUS IS TO LEFT OF JUPITER" 

PLUS IS TO THE RIGHT": PRINT 
= 1 THEN PRINT TABC 4)"WITH S AT TOP 

TABC 4)"WITH N AT TOP" 
: PRINT 
"FOR GRAPHIC DISPLAY PRESS RETURN"; A$ 

2100 
REGENERATE LMT 
T - TZ 



It 



GOTO 1550 



I 
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J SATS (continued) ■ 



1610 

1620 

1630 

1 640 

1650 

1660 

1670 

1680 

16 9 

1 700 

1710 

1720 

1 730 

1740 

1 750 

1760 

1770 

1780 

1 790 

1800 

1 81 

1820 

1830 

1840 

1 R50 

1860 

1870 

1880 

1890 

1900 

1 91 

1920 

19 30 

1940 

1950 

1960 

1 970 
1980 

1990 
2000 
2010 
2020 
2030 
2040 
2050 

2 60 
2070 
2080 
2090 
2100 
21 10 
2120 
2130 
2140 



IF LT > THEN GOTO 1690 
DP ^ DA - 1 : LT = LT + 24 : IF 
I F DP < 1 THEN MP = EM - 1 
IF (LY = 1 AND MP = 2) THEN 
IF (LY = AND MP ^ ?) THEN 
IF (MP = 4 OR HP - 6 OR MP 
OP = 31 



DP > THEN 1690 



DP ^ 29: 


GOTO 1690 


DP = 28: 


GOTO 1690 


9 OR MP 


=11) THEN 



DP = 30: GOTO 1690 



PR INT 

IF HP = THEN 
IF L > 1 THEN 
I F FL 



PRINT 
PR INT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PR INT 

Ml = 20 
PRINT 

M2 = 20 
PRINT 

M3 = 20 
PRINT 

H4 = 20 
PRINT 

M5 ^ 20 
PRINT 
IF L = 



MP = 12: YP = 

GOTO 1760 
1 THEN PRINT TABC 
TAB ( 20) ;"N" 

JUP ITER . . J" ; TABC 20)"" 

EUROP A. . . E"; TAB ( 20) " ! 

CALLISTO C"; TAB< 20)"! 



20) ;"S" : GOTO 1 730 



TAB( 
TABC 



30);"IO I" 

30) ;"GANYMEDE G" 



YP 



:^P 



;DP ;" 
UT " 



'■;LT;" 
;" HRS 



HR ZONE 
•;EM;" 



;TZ 



■DA 



+ INT C.7 * VAL (B$(0)) 

TABC Ml); RIGHTS CB$(0),1 

+ INT C,7 * VAL (B$C1)) 

TABC M2); RIGHTS (B$C1),1 

+ INT (.7 * VAL CB$(2)) 

TAB( M3); RIGHTS CB$C2),1 

+ INT C.7* VAL CSS C3) ) 

TAB ( M4) ; R IGHT$ CBS C3) , 1 

+ INT C .7 * VAL CBSCA) ) 

TABC M5); RIGHTS CB${4),1 

ND THEN GOTO 2020 
REM INCREMENT FOR INTERVAL 
REM AND ADJUST MONTH ENDS 
UT = UT + IN 
IF UT > 24 THEN UT = 
IF CLY = 1 AND M = 2 
IF CLY =0 AND M = 2 
IF DA < 31 GOTO 2000 

IF (M= 40RM^ 60R M= 90R M= 11) THEN M=M + 1:DA^ 1 
GOTO 2000 

IF DA > 31 THEN M = M + 1:DA = 1 
I F M = 1 3 THEN H ^ 1 : Y ^ Y + 1 
L ^ L + 1 : GOTO 690 



UT - 


- 24:DA = 


DA + 1 










AND 


DA - 30) 


THEN M = 


3: DA ^ 


1: 


GOTO 


2000 


AND 


DA = 29) 


THEN M = 


3: DA = 


1: 


GOTO 


2000 



PRINT 
INPUT 
IF AS 
IF A$ 
HOME 
FL = 
HOME 
END 
REM 
Z$ CO) 
Z$ C? ) 
Z$ C4 ) 
FOR I 



PRINT 
DO YOU WANT ANOTHER DATE Y/N? ";AJ 
: "N- THEN GOTO 2080 

> "Y" THEN PRINT "INVALID RESPONSE' 

GOTO 320 



PR INT 



GOTO 2030 



SUB TO DISPLAY 
STRS CS1) + 
STRS CS3) + 
STRS CO) + 
= TO 4 



S ATELL ITES 
"I":ZS(1) = 
"G":ZSC3) = 
"J " 



STRS 
STRS 



(S2) 
CSA) 



"E" 
"C" 
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ISATS (continued)' 



2150 8$(I) = "****" 
2160 NEXT I 
2170 K = 

2180 FOR I = TO 4 
2190 IF Z$CI) = "**** 
2200 FOR J = 1 TO A 
2210 IF ZSCJ) = "****" 
2220 IF VAL CZ$(J)> < 
2230 NEXT J 

2240 BSCK) = 2$(I) :2$CI) 
2250 K = K + 1 
I = - 1 

NEXT I 

RETURN 

REM SUB FOR REDUCING ANGLES 
2300 ZZ = CZZ / 360 - INT CZZ / 360)) 

IF ZZ < THEN ZZ = ZZ + 360 

RETURN 



2260 
2270 
2280 
2290 



2310 
2320 



GOTO 2270 

GOTO 2 2 30 
VAL (Z$CI)) THEN I 



360 



GOTO 2230 



^ 






PART 

A 
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GENERAL AND 
TUTOR AL 



THERE IS A BASIC HUMAN fascination in the night sky, which is 
especially captivating when our view is unhindered by the glaring lights of 
the cities. The stars beckon-bright diamonds sparkling in the blackness, 
some glaring to our dark-adjusted night vision, others elusively winking in 
and out at the limit of visibility. At first the stars and planets seem distant 
and aloof, but once you learn to recognize them, they represent both a 
comforting presence and a new horizon. 

This group of programs helps you find and recognize constellations 
and bright stars, know when there are meteor showers, and have data 
about the solar system at your fingertips. One of the programs gives 
helpfu I information for photograph i ng planets, and another provides usef u I 
astronomical conversions. 




Photo Credit: NASA/juhnsvn 

The Sun is our nearest star. The central body of the 
solar system, it is an enormous nuclear power station 
converting the nuclear energy of fusion into life- 
giving heat and light for our planet. This photograph, 



taken from the telescope carried by the Sky lab space- 
craft while it was still in orbit, shows a solar eruption 
rising over Haifa million miles from the solar surface. 
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Useful Astronomical Conversions^ 



This program is a straightforward conversion routine useful when 
astronomical measurements need to be expressed in other units. It includes 
light years, astronomical units, parsecs, telescope resolving power, and 
metric conversions. It allows conversions either way. If you desire other 
conversions, these can be added easily, following the pattern shown. 

The listing of the ACONV program follows. 



ASTRONOMY CONUERSION PROGRAM 

YOU CAN HAUE 

KM TO MI....<I> OR MI TO KM <9^ 



SELECT CONUERSION REQUIRED 1-16 



The menu of astronomical conversions available on the ACONV 



program 



Figure 19.1 
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ACONV 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

iro 

180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 

310 
320 
330 
340 
350 
360 
370 

3ao 

390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 



OME : 

RINT 

R INT 

RIN'T 

RINT : 

RINT 

RINT 

R INT 

R INT 

FOR K 

HOME 

PRINT 

PRINT 

P R INT 

PRINT 

PR INT 

PRINT 

PRINT 

PRINT 

PR INT 

PRINT 

PR INT 

PRINT 

PRINT 

PRINT 

PR INT 

PRINT 

PRINT 

IF D = 



PRINT : PRINT : PRINT : PRINT : PRINT 
TAB( 7)"I CONVERSIONS 1" 

PRINT 
TAB( 11)"AN 

TAB( 10)"BY ERIC BURGESS F.R.A.S 
TABC 11)"ALL RIGHTS RESERVED BY" 

TABC 11)"S S T SOFTWARE SERVICE": PRINT : PRINT 
= 2000 TO 1 STEP - 1: NEXT K 

PRINT 

: PRINT TABC 1 ) " AS TR ONOM Y CONVERSION PROGRAM" 
: PRINT : PRINT "YOU CAN HAVE 



ASTRONOMY PROGRAM": PRINT : PRINT 

PRINT : PRINT 



TABC 
TABC 
TAB C 
TAB C 
TABC 
TAB ( 
TABC 
TABC 
TABC 
TAB C 
TABC 
TABC 



5); "KM TO 
5);"LY TO 
5 ) ; "P A R S . 
5);"'C TO 
5);"A.U. 



MI 
MI 
TO 
' F. . 

TO MI 



LY 



<1 > 
C3) 
,(5) 
, C7) 
.C9} 
.C9) 
, TO 
TO 



KM. . 
LY. . 
PARS 
'C. . 
A.U. 
A.U. 
(JEC IMAL DEG. . 
DEG.MIN.SEC . . 



OR 
OR 
OR 
OR 
OR 
OR 



MI 
MI 
LY 
'F 
Ml 
KM 



TO 
TO 
TO 
TO 
TO 
TO 



5), 
5) 
5) 
5) 



PRINT 

..C2)" 

.. C4)" 

. . C 6 ) " 

. .C8>" 

CIO)" 

CIO)" 

C11>" 

C 1 2 ) " 

CI 3)" 
. ( 1 4 ) " 



5>;"A.U. TO KM. 
5);"DE6.MIN.SEC 
5)"0ECIMAL [>EG. 

"HRS.MIN.SEC . TO DECIMAL HRS 
"DECIMAL HRS. TO HRS.MIN.SEC 
"RES. PWR. TO INS. OF APERTURE (15)" 
"INS. OF APERTURE TO RES. PWR. C16)" 
PRINT "TYPE 999 TO END OR TO CHANGE" 
TO ANOTHER CONVERSION" 

INPUT "SELECT CONVERSION REQUIRED 1-16 ";D 
999 THEN GOTO 1680 



ON D GOTO 310,420,510,580,660,740,820,890,970,1060,1220,1290,1380,1450, 
1540,1610 
HOME 
PRINT 
PRINT 
PRINT 
PRINT 
IF X = 
Y = X ^ 



■KM TO MI CONVERSION" 
■TO STOP ENTER 999" 
: INPUT "KM ";X 

999 THEN GOTO 

CI / 1.60934) 



110 



PRINT "MI = 
PRINT : GOTO 
GOTO 130 



350 



IF X = 
HOME : 
P RINT 
PRINT 
PR INT 
I F X = 
Y = X * 
PRINT 
GOTO 450 
GOTO 10 
HOME : PRINT 
PRINT "LY TO 



GOTO 110 



999 THEN 

P RINT 

MI TO KM CONVERSION" 

TO STOP ENTER 999^' 

INPUT "MI ";X 
99 9 THEN GOTO 
1 .609344 
KM = ";Y 



110 



TRILLION MI CONVERSION" 



PROG RAM 1 9: ACON V 1 77 



ACON V (con tin ued) ■ 



530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

6 40 

650 

660 

670 

680 

690 

700 

71 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

91 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 
1050 
1060 
1070 



110 



PRINT 
PRINT 
IF X 

Y - X 
PRINT 
PRINT 
HOME 
PRINT 
PRINT 
PRINT 
IF X : 

Y = X • 
PR INT 
PRINT 
HOME 
PR INT 
PRINT 
PRINT 
IF X = 

Y = X ^ 
PR INT 
GOTO 
HOME : 
PRINT 
PRINT 
IF X = 

Y = X * 
PR INT " ' F = "; 
GOTO 840 
HOME : PR INT : 
PRINT "TO STOP 
PRINT : INPUT " 
IF X = 999 GOTO 

Y = (X - 32) * . 



LY CONVERSION' 
999" 



(Y>,5) 



PRINT : INPUT "LY ";X 
IF X = 999 THEN GOTO 
Y = X * 5.88 
PRINT "TRILLION MI = 
GOTO 530 
HOME : PRINT 
PRINT "TRILLION MI TO 
"TO STOP ENTER 
: INPUT "TRILLION MI 
999 THEN GOTO 110 
1 / 5.88 
"LY = "; LEFTS C STR$ 
: GOTO 610 

PRINT 
"PARSECS TO LY CONVERSION 
"TO STOP ENTER 999" 
: INPUT "PARSECS ";X 
999 THEN GOTO 110 
3.26 
"LY = "; LEFT$ ( STRS 
: GOTO 690 
: PR INT 
"LY TO PARSECS CONVERSION 
"TO STOP ENTER 999" 
: INPUT "LY ";X 
= 999 THEN GOTO 110 
* 1 / 3.26 

"PARSECS = "; LEFTf ( 
770 

: PRINT : PRINT " 'C TO 
"TO STOP ENTER 999" 
: INPUT " ' C " ;X 
999 GOTO 110 
1.8 + 32 

LEFT$ C STRS 



LEFTS ( STRS CY ) , 5) 



CY),5) 



STRS (Y) ,5) 
'F CONVERSION' 



PRINT '" 
PRINT " 
GOTO 910 



PRINT "'F TO 
ENTER 999" 
■F ";X 

110 
555555556 



C = 



' ; LEFTS 
LEFT? C 



C STRS 
STRS CY 



CY),5) 

'C CONVERSION' 



( Y ) , 5 ) ; 
+ 273),5);"K" 



"A. U. 
999" 



HOME : PRINT : PRINT 
PRINT "TO STOP ENTER 
PRINT : INPUT "A.U 

IF X = 999 GOTO 110 
Y = X * 92.95721 : REM MILES 
Z = X * 149.598: REM KILOMETERS 

PRINT "MILES (MILLIONS) = 

PRINT "KILOMETERS (MILLIONS 

GOTO 990 

HOME : PRINT : PRINT "MILES/KMS TO 

PRINT "TO STOP TYPE 999" 



TO MILES/KILOMETERS CONVERSION' 



LEFT$ ( STRS (Y),5) 
"; LEFTS ( STRS C Z) ,5) 



A.U. CONVERSION" 
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■ACONV (continued)- 



1080 

1090 

11 DP 

1110 

1 1 20 

1 130 

11A0 

1150 

1160 

1170 

1 180 

1 1 90 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1350 

1540 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1 540 

1550 

1 560 

1 570 

1580 

1590 

1600 

1610 

1620 



PRINT 
IF Q$ 
IF QS 

PRINT 
PRINT 
IF X 
Y ^ X 



: INPUT "TYPE KMS OR MI 
= "KMS" GOTO 1 1 20 
= "MI" GOTO 1 1 70 
"PLEASE TYPE KMS OR 
: INPUT "KILOMETERS 

■- 999 GOTO 110 

t (1 / 149. 598) 



:Q$ 



MI " : GOTO 
(MILLIONS) 



1080 
" ;X 



LE FT$ ( STR$ (Y) ,5) 



P R INT " A . U. 

GOTO 1120 

PRINT : INPUT "MILES (MILLIONS) ";X 

IF X = 999 GOTO 110 

Y ^ X * CI / 92.15721 > 
PRINT "A.U = "; LEFTS 
GOTO 1 1 70 

HOME : PRINT : PRINT 
PRINT "TO STOP ENTER 999,0,0" 
PRINT : INPUT "DEG,MIN,SEC ";X,X1,X2 
IF X = 999 GOTO 110 

Y = X + XI / 60 
PRINT "DECIMAL 
GOTO 1Z40 
HOME : PRINT : 
PRINT "TO STOP 
PRINT : INPUT 
IF X = 999 GOTO 

Y = INT CX) 

Y1 = 60 * (X - INT (X) ) 
Y2 = 60 * (Y1 - INT (YD) 

PRINT "DE6.MIN.SEC.="Y; INT 
GOTO 1310 



( STR$ (Y),5) 

DEG.MIN.SEC. TO DECIMAL DEG, 



CY),5) 
TO DEG.MIN. SEC 



+ X2 / 


3600 




DEG.= 


"; LEFTS 


( STRS 


PRINT 


"DECIMAL 


DEGREES 


GO TO 


999" 




DECIMAL DEGREES 


";X 


110 







{Y1);Y2 



HOME : 
PR INT 
PR INT 
IF X = 
Y = X + 
PRINT 
GOTO 
HOME 



PRINT "HRS.MIN.SEC. TO DECIMAL HRS 
'TO STOP ENTER 999,0,0" 



INPUT "HRS,MIN,SEC 
999 GOTO 110 
+ XI / 60 + X2 / 3600 

"DECIMAL HRS - ";Y 
1400 
: PRINT "DEC IMAL 



HRS TO 
999" 



:X,X1,X2 



HRS .MIN.SEC 



PRINT "TO STOP ENTER 
PRINT : INPUT "DEC. HRS. ";X 
If X ^ 999 GOTO 110 

Y = INT (X) 

Y1 = 60 * CX - INT (X) ) 
Y2 = 60 * CY1 - INT CY1 )) 

PRINT "HRS.MIN.SEC.= ";Y;" 

GOTO 1470 

HOME : PRINT "RESOLVING POWER TO APERTURE" 

PRINT "TO STOP ENTER 999" 

PRINT : INPUT "RESOLVING POWER SEC. OF ARC 

IF X = 999 GOTO 110 

Y = 4. 56 / X 

PRINT "APERTURE IN INCHES MUST BE ";Y 
GOTO 1560 

HOME : PRINT "APERTURE TO RESOLVING POWER" 
PRINT "TO STOP ENTER 999" 



INT CY1);" 



INT CY2) 
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ACONV (continued) 


1630 
1640 
1650 


PRINT : INPUT "APERTURE IN INCHES ";X 
IF X = 999 GOTO 110 
Y = 4.56 / X 


1660 
1670 
1680 


PRINT "RESOLVING POWER IN ARC SECS. IS ";Y 

GOTO 1630 

HOME 


1690 


END 






i'^ 




photo L red it: NASA/Aineb 

Earth and the other worlds of our solar system have 
been bombarded for billions of years by projectiles 
from space, believed to be the debris from the forma- 
tion of the system. Today some of these projectiles 
still enter Earth's atmosphere ar^d produce g/owing 



trails of "shooting stars" as they burn up in the upper 
atmosphere. Spacecraft such as Pioneer Venus have 
been sent into the atmospheres of other worlds, and 
they also glow brightly like mefeors as they plunge 
into those atmospheres. 
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Prognann 20: SSTAR 



Dates and Radiants of Annual Meteor Showers. 



Meteors, often referred to as "shooting stars" or "falling stars," result 
from small particles of matter, called meteorites, that encounter Earth at 
high speed and burn up in its atmosphere. Many meteors are associated 
with the orbits of comets; an annual meteor shower results when Earth 
crosses the cometary orbit. Meteors are usually more numerous in the early 
morning hours because at that time the observer is on the face of Earth 
moving into the meteors, that is, the leading hemisphere of the planet in 
its orbital motion around the Sun. 

The program asks you to select any month and then provides the details 
of any annual meteor shower expected during that month. If you use 
PHASE with this program you will be able to find out whether observations 
ofthe meteor shower will be affected by a bright Moon (between full and 
last quarter). The program graphically displays the radiant for the shower 
among the stars ofthe constellations for any selected month. It provides 
details of each meteor shower and names the surrounding constellations. 
Typical displays ofthe program are shown in Figures 20.1 and 20.2. 

For other computers you can use PRINT @, CHR$(XX), and TAB 
statements to position the stars, instead ofthe VTAB and TAB instructions 



182 



CELESTIAL BASIC 



used for the Apple. For a more dynamic display, POKE statements can be 
used to randomly display meteors from the radiant. POKE statements 
allow ASCII characters to be displayed on the screen at a specified screen 
coordinatewithoutscrollingthe screen display. A routine todothisforthe 
Exidy Sorcerer's 64 by 29 character display is shown in the Appendix and 
can be adapted to other computers. For the Apple, POKE instructions for 
screen visuals are more complex (see PLNTF, Program 17). To use high 
resolution graphics to plot stars and names in a long routine like this, the 
program mustcontainaroutinetojumpovertheareaof memory reserved 
for pages 1 and 2 of the high resolution graphics (see your Apple manual). 
The listing of the SSTAR program follows. 



FOR THE MONTH OF APRIL 
THE METEOR SHOWER IS THE LYRJDS 
?e-?2. MAX 21.I2/HR. RAD . 1 8 RA 33 DEC 
GOOD ANNUAL SHOWER 



LYRA 



X UEGA 



HERCULES 



RADIANT 



OPHIUCHUS 
HAHT ANOTHER MONTH? Y/N 



A typical display of a meteor shower radiant generated by the SSTAR program 



Figure 20,1 
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IN JUNE THERE ARE TWO SHOWERS 

..m.-THE LYRIDS 

JUNE 18-21. MAX 15. BLUir" "^ 
ftUERAGING 8 PER HOUR 

AND 
THE OPHIUCIDS 

JUNE 17-26. MAX 19 

AUERAGIHG g PER HOUR 

PLEASE SELECT LYRIDS <1) 
OR OPHIUCIdI <2> 



If there are two meteor showers in a requested month, the program develops the display 
shown here for you to select the shower you wish to he displayed. 



Figure 20.2 



\ ^l,-.. 
"'■■ 4 
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SSTAR 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

1A0 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

33 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 



HOME 

PR INT 

PRINT 

PRINT 

PRINT 

PRINT 

PR INT 

PRINT : 

PRINT : 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
FOR K 
HOME : 
INPUT 
PR INT 
IF M < 
HOME : 

M2 = M 
IF M2 



METEORS 



PRINT : PRINT 

TAEC 6)" 

TABC 6) "I 

TAB( 6)" 

PR INT : PR INT 
TABC 10)"AN ASTRONOMY PROGRAM" 

PRINT TABC 9)"BY ERIC BURGESS 

PRINT : PRINT 

TABC 9)"ALL RIGHTS RESERVED BY" 

TABC 9)"S & T SOFTWARE SERVICE" 
: PRINT 

TABC 3r'THIS PROGRAM PROVIDES 

TABC 3>"ANNUAL METEOR SHOWERS 
= 1 TO 3000: NEXT K 

PRINT : PRINT 
"SELECT MONTH (1 THRU 12) ";M 



F.R.A.S, 



PARTICULARS OF" 
FOR ANY MONTH" 



1 OR M 
PRINT 



> 12 THEN 
; PRINT 



PRINT "INVALID RESPONSE": PRINT : GOTO 170 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



M2 
M2 
M2 
M2 
H2 
M2 
H2 
M2 
M2 
M2 
M2 



1 
2 
3 
4 
5 
6 
7 
8 

■ 9 

■ 10 

■ 11 
■■ 12 
' FOR 
'THE 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



M$ = 
MS = 
M$ = 
M$ = 
M$ = 
MS = 
MS = 
H$ = 

M$ : 

MS 



"JANUARY": GOTO 340 
"FEBRUARY": GOTO 470 
"MARCH": GOTO 520 
"APRIL": GOTO 570 
"MAY": GOTO 750 
"JUNE" : GOTO 900 
"JULY" : GOTO 11 40 
"AUGUST": GOTO 1340 



"SEPTEMBER": GOTO 1300 
= "OCTOBER": GOTO 1490 
jHEN MS = "NOVEMBER": GOTO 1680 
THEN MS = "DECEMBER": GOTO 2280 
THE MONTH OF ";M$ 

METEOR SHOWER IS QU A NDR A NT 1 DS " 
4 JAN MAX 24 HRS, RAD 15.5 RA 50 DEC" 
GOOD ANNUAL SHOWER 40 PER HOUR" 
GOSUB 3330: PRINT : PRINT 



PRINT 

PR INT 

PRINT 

P R INT 

PR INT 

PRINT 

PRINT 

PR INT 

PR INT 

PRINT 

PR INT 

PR INT 

GOTO 

PR INT 

PR INT 

PRINT "THERE IS 

PRINT : PRINT : 

GOTO 3280 

PRINT "DURING THE 

PR INT 

PR INT "THERE IS NO 



TABC 
TABC 
TAB C 
TABC 
TABC 
TABC 
TABC 
3270 
"DUR ING 



19) 
26) 
15> 
30) 
1 3) 
12) 
30) 



PR INT 

TABC 28)"B00TES" 



TABC 29)".' 
TABC 24)"X' 
ARCTURUS" 



PR INT 
PRINT 



TABC 2)"C0RONA" 



THE MONTH OF ";M$ 



NO MAJOR 
PRINT 



ANNUAL METEOR SHOWER" 



MONTH OF 



;M$ 



MAJOR ANNUAL METEOR SHOWER" 
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■ SSTA R (con tin ued)- 



550 

560 

570 

580 

590 

600 

61 

620 

650 

6A0 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

7 60 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

91 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1 1 00 

1110 



PRINT : PRINT 
GOTO 3280 



PR INT 



PRINT 
PRINT 
PRINT 
PR INT 
P R INT 
PR INT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PR INT 
PRINT 
PR INT 
PR INT 
PR INT 
GOTO 



'FOR THE MONTH OF ";M$ 

'THE METEOR SHOWER IS THE LYRIDS" 

'20-22, MAX 21,12/HR, RAO. 18 RA 33 DEC" 

'GOOD ANNUAL SHOWER": PRINT 
TAB( 11)"X VECA"; TAB( 33)"*"; TAB( 
TABC 5)"LYRA"; TAB< 33 ) " HE RC ULES " 



39)"* 



TAB( 
TABC 



34) "*"; TAB C 38)"*" 
7}"* *";: GOSUB 3530 



: PRINT 
TABC 23)"*" 
TAB( 32)"*" 

; PRINT 
TABC 33)"*" 
TABC 1 6) "OPHIUCHUS"; 



TABC 27)"X" 



3270 



PR INT 

PR INT 

PRINT 

PR INT 

PRINT 

PRINT 

PR INT 

P R INT 

PRINT 

PR INT 

PRINT 

PRINT 

PRINT 

PRINT 

GOTO 

PR INT 

PRINT 

PRINT 

PR INT 

PR INT 

PRINT 

PRINT 

PR INT 

PR INT 

PRINT 

PRINT 

PRINT 

PR INT 

IF JS 

IF JS 

IF JS 

IF AS 

FOR J 

INPUT 

HOME 

IF AS 

IF A$ 



AQUARIDS" 
DEC" 

: TABC 36)".." 
: PRINT : PRINT 



TABC 31)"."; TABC 35)" 



'FOR THE MONTH OF ";M$ 

'THE METEOR SHOWER IS ETA 
'4-13, MAX 6, RAD 22.5 RA, 
'WEAK DISPLAY" 

TABC 15)"."; TABC 30)"*" 

TABC 24)"."; TABC 35)"." 

TABC 17)"*"; TABC 24)"*" 

TABC 1 5)"*"; : GOSUB 3330 

TABC 30)"AQUARIUS" : PRINT 

TABC 33>"X": PRINT : PRINT 
: PRINT 

TABC 12)"." 

TABC 11)"."; TABC 29) 

TAB( 1 9)"CAPRIC0RNUS" 
3270 
: PRINT 
"IN JUNE 
: PRINT 

TABC 5)"THE LYRIDS" 
"JUNE 10-21, MAX 15, BLUISH METEORS" 

TABC 5)"AVERAGING 8 PER HOUR 
: PRINT : PRINT TABC 8)"AND" 
: PRINT TABC 5)"THE OPHIUCIDS" 
: PRINT "JUNE 17-26, MAX 19" 

TABC 5)"AVERAGING 6 PER HOUR" 

: PRINT "PLEASE SELECT LYRIDS CI)" 
OR OPHIUCIDS C2)" 

: INPUT A$:JS = VAL (A$) 

■^ 1 OR JS > 2 THEN PRINT 

= 1 THEN GOSUB 2820: GOTO 

= 2 THEN GOSUB 3050 

= "N" THEN GOTO 3280 

= 1 TO 3000: NEXT J 

'DO YOU WANT TO SEE OTHER SHOWER Y/N "-AS 



TABC 39)"." 



THERE ARE TWO SHOWERS" 
'THE 



' INVALID 
1070 



RESPONSE": PRINT : GOTO 1000 



= "Y" 



AND 
AND 



JS 
JS 



THEN 
THEN 



GOSUB 
GOSUB 



3050; 
2820 



GOTO 1130 
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■ SSTA R (con tinued) ■ 



1120 


IF AS 


= "N" THEN GOTO 3280 


1130 


GOTO 3270 


1140 


P R INT 


"FOR THE MONTH OF ";M$ 


1150 


PRINT 


"THE METEOR SHOWER IS DELTA AQUARIDS" 


1160 


PRINT 


"7/25-8/4, MAX 28, RAO 22.8 RA -16 DEC" 


1170 


PRINT 


"DIFFUSE SHOWER" 


1180 


PRINT 


TABC 17)"." 


1190 


PR INT 


: PRINT 


12DD 


PRINT 


TABC 32)"AQUARIUS" 


1210 


PRINT 


TABC 28)"." 


1220 


PR INT 


TABC 11>"DELTA *";: GOSUB 3330 


1230 


PRINT 


TABC 33)"*"; TABC 37)"." 


1240 


PRINT 




1250 


PRINT 


TABC 39)".": PRINT 


1260 


PRINT 


: PRINT TABC 19)"X": PRINT 


1270 


PRINT 


TABC 11 )"FOMALHAUT" 


1280 


PRINT 


TABC 31)"*": PRINT : PRINT : PRINT 


1290 


GOTO 3270 


1300 


PR INT 


"DURING THE MONTH OF ";MS 


1310 


PRINT 




1320 


P R INT 


"THERE IS NO MAJOR METEOR SHOWER" 


1330 


PRINT 


: PRINT : PRINT : GOTO 3280 


13A0 


PRINT 


" FOR THE MONTH OF ";M$ 


1350 


PRINT 


"THE METEOR SHOWER IS THE PERSEIDS" 


1360 


PRINT 


"4-16, MAX 12, RAD 3 RA 58 DEC" 


1370 


PRINT 


"A SPECTACULAR SHOWER, 50 PER HR" 


1380 


PRINT 


TABC 6)"."; TABC 39)"X" 


1390 


PRINT 


: PRINT TABC 2 9 ) " C A SS lOP E I A" 


1400 


PRINT 


: GOSUB 3330 


1410 


PR INT 


TABC 23)"-" 


1420 


PR INT 


TABC 10)"PERSEUS"; 


1430 


PRINT 


TABC 20)"*": PRINT TABC 21)"." 


1440 


PRINT 


TABC 12)"*": PRINT : PRINT 


1450 


PRINT 


TABC 39)"X": PRINT TABC 8)"X"; TABC 20)"X 


1460 


PRINT 


TABC 20)"."; TABC 30 ) " AN DR OH E D A" 


1470 


PRINT 


TABC 37)"*" 


1480 


GOTO 3270 


1490 


PRINT 


"FOR THE MONTH OF ";Mt 


1500 


PRINT 


"THE METEOR SHOWER IS THE ORIONIDS" 


1510 


PRINT 


"16-26, MAX 21, RAD. 6.4 RA, 15 DEC" 


1520 


PRINT 


"SLOW PERSISTENT TRAIL METEORS, 30/HR" 


1530 


PRINT 


TABC 6)"."; TABC 23)"*"; TABC 26)"." 


1540 


PRINT 


TABC 11)"."; TABC 22)"."; TABC 34)"*" 


15 50 


PRINT 


TABC 10)"GEHINI" , . 


1560 


PRINT 


TABC 8)"."; TABC 18)"*" 4 ' | 
3330 %J , 
: PRINT TABC 16)"." iX 


1570 


GOSUB 


1580 


PRINT 


1590 


PRINT 


: PRINT TABC 8)"*"; TABC 32)"." :' 


1600 


PRINT 


TABC 28)"X"; TABC 36)"X" 


1610 


PR INT 


TABC 4)"X" 


1620 


PRINT 


"PROCYON"; TABC 35)"0RION" 


1630 


PRINT 


: PRINT TABC 35)"X" 


1640 


PRINT 


TABC 333"X": PRINT TABC 31)"X"; TABC 38)" 


1650 


PRINT 


TABC 34)":": PRINT TABC 2)"."; TABC 38)"X 


1660 


PRINT 


TABC 30)"*" 


1670 


GOTO 


5270 
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SSTAR (continued)- 



1680 
1690 
1700 
1710 
1 720 
1730 
1740 
1750 
1760 
1 770 
1780 
1 790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 

1 890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 

2 080 
2090 
2100 
2110 
2120 
2130 
2UQ 
2150 
2160 
21 70 
2180 
2190 
2200 
2210 
2220 
2230 



PRINT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
IF JS 
IF JS 
IF JS 
FOR J 
INPUT 
HOME 
IF A$ 
IF A$ 
IF A$ 
GOTO 



: PRINT 

'IN ",-1*1$;" THERE ARE TWO SHOWERS" 
: PRINT 

TABC 5)"THE TAURIDS" 

: PRINT "10/20-11/30, MAX 8/11, RAD 3.7 RA,14 DEC" 
'SLOW 12/HR, SCATTERED FIREBALLS" 
; PRINT TAB( 8)"AND" 
; PRINT TAB< 5)"THE LEONIDS" 



"15-19, MAX 17, RAD 
"SWIFT METEORS, 10 
: PRINT 

"PLEASE SELECT TAURIDS (1> 
OR LEONIDS (2) 
: INPUT A$:JS = VAL (A$) 
< 1 OR JS > 2 THEN PR INT 
= 1 THEN GOSUB 1930: GOTO 
= 2 THEN GOSUB 2120 
= 1 TO 3000: NEXT J 
"WANT TO SEE OTHER SHOWER 



10 RA, 22 DEC" 
PER HOUR" 



'INVALID 
1860 



RESPONSE": PRINT 



GOTO 1790 



Y/N ";A$ 



= "Y" 
= "Y" 
= "N" 
3270 



AND JS 
AND JS 
THEN 



= 1 
= 2 

GOTO 



THEN 
THEN 
3280 



GOSUB 
GOSUB 



2120: 
1930 



GOTO 1920 



REM 

HOME 

PR INT 

PRINT 

PRINT 

PR INT 

PR INT 

PRINT 

PR INT 

PRINT 

PR INT 

PRINT 

GOSUB 

PR INT 

PR INT 

PRINT 

PR INT 

PRINT 

RETURN 

REM NOV 

HOME 

PR INT 

PR INT 

PR INT 

PRINT 

PR INT 

GOSUB 

PRINT 

PRINT 

PRINT 

PR INT 



NOV TAURIDS 



"FIRST ";M$;" SHOWER IS TAURIDS" 
"10/20-11/30, MAX 8, 12 PER HOUR" 
"WITH 2 RAD-,3.73 RA, 14 & 22 DEC" 
"SLOW METEORS, SCATTERED FIREBALLS' 
: PRINT TAB( 1 6 ) "P LE I A DES " : PRINT 

TAB( 19)".::" 
"TAURUS": GOSUB 3330 

TABC 39)"*" 
"ALDEBARAN"; TA8C 11)"." 

TABC 10>"X"; TABC 11) 



3350: PRINT 



TABC 30)"*' 



LEONIDS 



TABC 45) 



TABC 13) 



PRINT 



TABC 34)"ARIES' 



PRINT 



^ 



SHOWER IS 
RAD 10.13 
10 PER 
10)" 



h 



LEONIDS 
RA, 22 

HOUR" 

": PRINT 



DEC 



TABC 7)' 



"SECOND ";M$;" 
"15-19, MAX 17, 
"SWIFT METEORS 

TABC 3)"."; TABC 
: PRINT TABC 24) 
3330 
: PRINT TABC 17)"*": PRINT TABC 3)"*" 

TABC 20)".": PRINT TABC 3)"X"; TABC 8) 

TABC 20)"X REGULUS" 
"."; TABC 28)"." 



r-> 



PRINT TABC 18) 



TABC 26)"*" 



'LEO" 
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SSTAR (continued)- 



2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2A00 

241 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 



PRINT 
PR INT 
PR INT 
RETURN 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PR INT 
PRINT 
PR INT 
PRINT 
PR INT 
PRINT 
PRINT 
PR INT 
IF JS 
IF JS 
FOR J 
INPUT 
HOME 
IF A$ 
IF A$ 
IF A$ 
GOTO 



TABC 37) 
: PRINT : 



PRINT 



PRINT : PRINT 
IN ";M$;" THERE ARE 



TWO METEOR SHOWERS" 



: PRINT TAB( 5)"THE GEMINIDS" 

"9-13, MAX 13, 60 PER HOUR" 

"SWIFT BRIGHT METEORS, SOME FIREBALLS" 



PRINT : PRINT 
PRINT : PRINT 
'17-24, MAX 22, 
'WEAK DISPLAY" 



TABC 8>"AND" 
TABC 5)"THE URSIDS" 
5 PER HOUR" 



PRINT "PLEASE SELECT GEMINIDS (1)" 

OR URSIDS C2) " 
INPUT AS:JS = VAL CAS) 

1 THEN GOSUB 2510: GOTO 2440 

2 THEN GOSUB 2660 



= 1 TO 3000: 
"WANT TO SEE 



NEXT J 
THE OTHER 



SHOWER Y/N "; AS 



= "Y" 
= "Y" 
= "N" 
3270 



AND JS 
AND JS 
THEN 



= 1 

= 2 

GOTO 



THEN 
THEN 
3280 



GOSUB 
GOSUB 



2660; 
2510 



GOTO 2500 



REM 
HOME 
PR INT 
PR INT 
PRINT 
PRINT 
PR INT 
GOSUB 
PRINT 
PRINT 
PR INT 
PR INT 
PRINT 
PR INT 
RETURN 
REM DEC 
HOME 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 
PR INT 



DEC, GEMINIDS 



"FIRST ";M$;" 
"9-1 3, MAX 13, 
"BR IGHT SW IFT 

TABC 40)"." 
; PRINT TABC 
3330 

" ." : PRINT 
TAB( 18)" 
28)" 
36)" 
35)" 
23)" 



SHOWER IS GEMINIDS" 
RAD. 7.46 RA 32 DEC 
METEORS 60 PER HOUR' 



22)"*" 



TABC 
TABC 
TABC 
TABC 



TABC 18) 

: PRINT 

: PRINT 

: PRINT 

: PRINT 

; TABC 46)"X" 



*"; TABC 33) " ." 

."; TABC 24)"*"; 
TABC 25)"GEMINI" 



TABC 38)"* *' 



PRINT TABC 19)"X PROCYON' 



URS IDS 



"SECOND ";M$;" SHOWER 
"17-24, MAX 22, RAD 14 
"FAINT, MEDIUM SPEED, 



IS THE URSIDS' 
6 RA, 78 DEC" 
5 PER HOUR" 



TABC 20)"*" 

: PRINT : PRINT 



PR INT TABC 1 3) 



TABC 1 0)"POLARIS" ; 
PRINT TABC 16)". 
TABC 12)".": PRINT 
GOSUB 3330: PR INT 
URSA"; TABC 39)"." 
MINOR" 
TABC 10)"."; TABC 16)"*": PRINT 
TABC 14)"*"; TABC 30) "DRACO" 



PRINT 
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2810 
2820 
2830 
28AD 
2850 
2860 
2870 
2880 
2890 
2900 
291 
2920 
2930 
29AD 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3DA0 
3050 
3060 
3070 
3080 
3090 
31D0 
3110 
3120 
3130 
3140 

31 50 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
32i0 

32 50 
3260 
3270 
32 80 
3290 
3300 
5310 
3320 
3330 
3340 
3350 
3360 



LYRIDS 

"FIRST ";M$;" SHOWER IS THE 
"10-20, MAX 15, RAD 18.3 RA, 
"BLUISH METEORS, 8 PER HOUR' 



TABC 
TAB C 
TABC 



AO)"*" 

6)"VEGA"; TABC 13>"X" 

37) "*" : GOSUB 3330 



TABC 9)"* 

LYRA"; 

TABC 32)"HERCULES' 
. ^„ 

TA8C 28)"*" 

TABC 39)' 
: PRINT : 

TABC 12)' 

TABC 10)' 

TABC 33)' 
'*"; TABC 



TABC 30) 



'*": PRINT 
PRINT 



TABC 38)"*' 



31 ) "OPHIUCHUS' 



RETURN 

REM JUNE 

HOME 

PR INT 

PRINT 

PRINT 

PR INT 

PRINT 

PR INT 

PR INT 

PR INT 

PRINT 

PRINT 

PR INT 

PRINT 

PR INT 

P R INT 

PR INT 

PR INT 

PR INT 

PRINT 

PRINT "*" 

PR INT 

RETURN 

REM JUNE 

HOME 

PR INT 

PR INT 

PR INT 

PRINT 

PR INT 

PRINT 

PR INT 

PR INT 

GOSUB 

PRINT 

PRINT 

PRINT 

PR INT 

PR INT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

RETURN 

FOR K 

INPUT 

IF A$ 

IF A$ 

HOME 

END 

REM SUB FOR METEOR RADIANT 

PRINT TABC 20);: FLASH : PRINT 

PRINT TABC 1 7)"RA0IANT"; 

RETURN 



LYRIDS" 
35 DEC" 



TABC 30)"*" 



SHOWER 
RAD 17. 



OPH lUC IDS 

"SECOND ";M$;" 
"17-26, MAX 19, 
"6 PER HOUR" 

TABC 18)"0PHIUCHUS" 

TABC 33)"." 
"."; TABC 
: PRINT 

TABC 15)' 
3330 

TAB C 



THE 
RA, ■ 



OPHIUC IDS' 
■20 DEC" 



10) 



TABC 30)"*' 



TABC 21)"*": PRINT 



^": PRINT 
39)"*" 



38)"- 
TABC 
34)"*" 

22)"ANTARES"; 
31 ) "X"; TAB( 39)"*" 
*"; TABC 8)"*"; TABC 30)"*" , " 

PRINT "SAGITTARIUS" 
*"; TABC 26)"*" 

TABC 12)"."; TABC 15)"**" 
TABC 26)"*"; TABC 31)"SC0RPI0' 



TABC 
TABC 
TABC 



TABC 
TAB C 



5)"*" 
12)"*' 



= 1 TO 5000: NEXT K 
"WANT ANOTHER MONTH? 
= "Y" THEN 160 
< > "N" THEN PRINT 



V 



11 



Y/N ";AS 



tr 



INVALID RESPONSE": PRINT : GOTO 3280 



" + ' 



NORMAL 




Pholo: NASA/Univenity oi i .ilifornid 



Beyond the solar system the stars beckon. Countless 
stars clump into our island universe, the Milky Way. 
Out in the farther depths of space we have discovered 
other island universes as numerous as the stars in our 
own Milky Way system. Between the stars are clouds 



of dust, some illuminated by nearby stars to form 
glowing areas of nebulosity. In this picture gas 
mingles with dust in the constellation of Serpens and 
shows us what may be the birth of new star systems. 



\ K.. 



191 



Program 21: CONST 

andCONSH 



Recognizing the Constellations. 



when the Sun has set and twilight deepens, the night sky begins to 
develop the pinprick points of starlight. If we watch these stars from night 
to night we soon see that they rise, move together in a procession across 
the sky, and set, making a complete circuit once each day and once each 
year. In the northern sky, however, some groups of stars do not rise and 
set, but daily and annually circle around the celestial north pole, ap- 
proximately marked by the pole star, Polaris. Similarly, in the Southern 
Hemisphere other groups of stars are always visible around the celestial 
south pole. You can use Program 1 6 to show how these motions and the 
constellations appear in different parts of the world, at different times of 
the night and in different seasons. You will notice that the individual stars 
do not appear to move relative to one another. 

The patterns of the stars can be imagined to be joined by lines to 
represent objects, animals, and people. Since ancient times people have 
groupedthestarsintoconstellations in this way, forming imaginary figures 
of mythological heroes and heroines in the night sky. Orion and the Pleiades 
are mentioned in the Book of Job, and the division of the stars intoconstella- 
tions is ascribed by Josephus to Seth, a son of Adam. Often these constel- 
lations are in groups telling a story, such as that concerning Andromeda, 
Perseus, Cassiopeia, Pegasus, and their surrounding constellations. 
Legend has it that Queen Cassiopeia (Figure 21 .1 ) of Ethiopia and her hus- 
band, Cepheus, consented to the sacrifice of their daughter Andromeda 
to placate the gods. Andromeda was chained to a rock to await the coming 
of a sea monster. But Perseus saw the maiden, fell in love with her, and 
came to her rescue on the winged horse Pegasus. He slew the monster as 
he had the Gorgon, 

Because of the revolution of Earth around the Sun, the Sun appears to 
pass through a series of constellations, called the zodiacal constellations. 
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These zodiacal constellations figure prominently in astrology, and can be 
memorized by the old English rhyme: 

The Ram, the Bull, the Heavenly Twins, 

And next the Crab, the Lion, shines, \ 

The Virgin and the Scales; 

The Scorpion, Archer, and Sea-Coat, 

The Man that pours the water out. 

And Fish with glittering scales. 

Many bright stars have also been given names, usually derived from 
the Arabic names given them during the Middle Ages. In modern astron- 
omy the stars of the constellations are assigned Greek letters; alpha forthe 
brightest, then beta, and so on through the Greek alphabet. When these 
letters have been used up, the stars are designated by numbers. 

The constellations and the stars within them were aids to navigation 
by seafaring peoples, and some modern research suggests that birds 
migrate by reference to the stars. The latitudeof any place on Earth in the 
Northern Hemisphere can be quickly determined to within a few degrees 
by measuring the elevation of Polaris (see Program 7). The longitude is 
somewhat more difficult to establish. However, traveling toward the east 
an observer finds that the stars cross the meridian earlier, one hour for 
each fifteen degrees of longitude. Toward the west, the meridian crossing 
occurs later. But to determine how much earlier or later, an observer must 
have a clock that tells him the time at his original location. This need to 
know time exactly was one reason for the establishment of Greenwich 
Observatory and the zero meridian of longitude. Without an accurate 
measurement of when stars crossed the meridian at a particular place, 
determined by a transit instrument, and accurate clocks to maintain this 
time on long voyages, exploration of our globe would have been much 
more difficult. 

Once you recognize the constellations they become friends of the night 
sky, recognizable not only anywhere on our planet but also throughout our 
solar system. The groupings of stars that we see in the skies of Earth are the 
same as those in the skies of the Moon and of Mars, for example. 

A well-known astronomer once wrote that the best way to learn the 
constellations is to get someone to teach them to you. An alternative is to 
refer to them in an astronomical textbook. But the lines shown on the star 
maps in such books are not available when you look at the night sky. This 
program is designed to help you learn the constellations by pattern 
recognition. It does not show the imaginary lines of the star charts. But 
when you rememberthe patterns of bright and faint stars you should have 
no problem in identifying the constellations in the night sky. It does not 
take long to become familiar with the constellations. Unfortunately, not 
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all are visible at any one time or season. With this program you can learn to 
recognize 42 major constellations before going out to search for them in the 
night sky. A supplementary program (CONSH) is appended to identify the 
southern circumpolar constellations for readers in the Southern Hemisphere. 
The program offers two alternatives. You can be shown a constellation 
and asked to name it, and then be asked to name the bright star within it. 
Or you can have questions mingling stars and constellations unrelated to 
each other. 

The program randomly selects the constellations for display and gives 
you two tries at naming the chosen constellation correctly. Then it tells 
you the name, so you should rem ember to associate it with the star pattern 
the next time you see it. You can continue being tested as long as you 




Here the CONST program displays the constellation Cassiopeia. If you do not name it cor- 
rectly after two tries, the name is displayed and you are asked if you would like another quiz. 

* ■ ■ Figure 21,1 



194 CELESTIAL BASIC 



wish, or you can quit at any time. Figure 21.1, which shows Cassiopeia, is 
typical of the displays generated by this program. 

There are no complex algorithms in the program. It selects the con- 
stellations by use of the random function and jumps to the appropriate 
section of the program at instruction 450. Each section is a straightforward 
routine that prints stars on the monitor screen and then uses the 
subroutine (instruction 7450} to ask you to name the constellation. It 
checks if your answer is correct. If your answer is incorrect it allows you 
one more try before printing the name of the constellation. A similar 
subroutine (instruction 7540) is used to quiz you on the name of a bright 
star within the constellation. 

For several of the constellations the name of a second star is given in 
the constellation routines, but it is not displayed with this version of the 
program. If you wish you can add a second subroutine to display these 
other stars for a quiz. You can also use the same techniques to display 
nebulae when you want a more advanced tutorial. These would be inter- 
esting projects for an astronomy class. 

If you are in the Southern Hemisphere you will probably find it prefer- 
able to invert all the constellations when you key in the routines for each 
constellation by changing the VTAB and TAB instructions. To do this you 
should subtract each TAB instruction number from 40 and use the difference 
as the new TAB number; then subtract each VTAB instruction number 
from 24 and use the difference as the new VTAB number. This procedure 
will invert all the constellations when they are displayed on the monitor 
screen. 

This program is easily adapted to other computers. The VTAB instruc- 
tions have been purposely left in for all lines even though they often are 
not required. This has been done to provide line information sothat VTAB 
instructions can be substituted to select a line position on the screen. For 
the TRS-80, for example, the VTAB/PRINTTAB(X) instructions can be 
changed to PRINT® instructions. Other computers can use simple PRINT 
statements to count the number of lines in place of the VTAB statement. 

The listings of the CONST and CONSH programs follow. 
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CONST 



; PRINT 
TABC 5)' 
TABC 5)' 

PRINT 
TABC 5)' 
TABC 5)' 
TABC 5)' 

PRINT ; 



TABC 4)"ALL 
TABC 4}"S S 
= 1 TO 3000: 
: PRINT : PRINT 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 



460 CS = "PISCES" 

470 HOME 

480 VTAB 5: PRINT 

490 VTAB 9: PRINT 

500 VTAB 12: PRINT 



HOME 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PR INT 
PR INT 
PRINT 
PRINT 
PRINT 
FOR K 
PRINT 
HOME 
PRINT 
INPUT 
IF A$ 
IF A$ 
HOME : 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
HOME : 
PRINT 
PRINT 
IF AL$ 



PRINT : PRINT 
AN ASTRONOMY PROGRAM' 
TUTORIAL" 



CONSTELLATIONS 



PRINT 



TABC 4)"BY ERIC BURGESS F.R.A.S, 



RIGHTS RESERVED BY" 
T SOFTWARE SERVICE" 
NEXT K 



;A$ 



INVALID RESPONSE": PRINT : GOTO 180 



: PRINT : PRINT 
"WANT INSTRUCTIONS Y/N 
= "N" THEN GOTO 370 
< > "Y" THEN PRINT 

PRINT : PR INT 
"THIS PROGRAM DISPLAYS A CONSTELLATION" 
"SELECTED AT RANDOM AND ASKS FOR ITS NAME" 
"YOU HAVE TWO TRIES BEFORE THE NAME" 

TAB( 8)"IS REVEALED" 



OF" 



IT" 



IF 
Z = 
C = 
C = 

ON 



"NEXT THE PROGRAM ASKS FOR THE NAME 

"A BRIGHT STAR IN THE CONSTELLATION' 

"AGAIN YOU HAVE TWO CHANCES TO NAME 

"BEFORE BEING TOLD THE NAME" 

: PRINT 

: PRINT "THE PROGRAM OFFERS TWO ALTERNATIVES" 

"CONSTELLATIONS FOLLOWED BY STARS" 

"OR STARS AND CONSTELLATIONS MIXED" 

: PRINT 

"PRESS RETURN WHEN READY";A$ 

PRINT : PRINT : PRINT : PRINT 
: PRINT "CHOOSE CONSTELLATIONS CD" 
"OR": INPUT "STARS AND CONSTELLATIONS (2)";AL$ 

= "2" THEN AL = 1 . 

= "1 " THEN AL = 



AL$ 

1 
RND (Z) 
INT CO 



42 
1 



ft. 




TABC 10)" 

TABC 8)".' 

TABC 12) 



TABC 16)" 
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CONST (continued)- 




510 


VTAB 13: PRINT 


TABt 24)"."; TABC 31)"."; TABC 35)"." 


520 


VTAB 14: PRINT 


TABC 4)"."; TAB( 28)"." 


530 


VTAB 15: PRINT 


TABC 33)"." 


540 


VTAB 16: PRINT 


TABC 28)"."; TABC 31)"." 


550 


VTAB 22 




560 


G0SU8 7A50 




570 


INPUT "PRESS RETURN TO CONTINUE " ;A$ | 


580 


GOTO 7610 




590 


CJ = "ARIES" 




600 


S$ = "HAMAL" 




610 


HOME 




620 


VTAB 6: PRINT 


TABC 23)"." 


630 


VTAB 7: PRINT 


TABC 22)"." 


6A0 


VTAB 9: PRINT 


TABC 26)"." 


650 


VTAB 10: PRINT 


TABC 12)"." .: ;■ ' 


660 


VTAB 11: PRINT 


TABC 13)"." 


670 


VTAB 12: PRINT 


TABC 11)"." '- ' 


680 


IF FL = 1 THEN 


VTAB 15: PRINT TABC 25)""; 


690 


IF FL = 1 THEN 


FLASH : PRINT TABC 25)""; 


700 


IF FL = 1 THEN 


FLASH : PRINT "X": NORMAL : GOTO 720 


710 


VTAB 15 


PRINT 


TABC 25)"X" 


720 


VTAB 16 


PRINT 


TABC 9)"."; TABC 28)"*" 


730 


VTAB 17 


PRINT 


TABC 5)"."; TABC 28)"." 


7A0 


VTAB 20 




750 


IF FL = 1 THEN 


FL = 0: GOTO 7540 


760 


GOSUB 7450 




770 


INPUT "PRESS RETURN TO CONTINUE ";A$ [ 


780 


GOTO 610 




790 


C$ = "TAURUS" 




8 00 


S$ = "ALtJEBARAN' 




810 


S2$ = "PLEIADES' 


:S3$ = "HYADES" ■ 


820 


HOME 




830 


VTAB 10: PRINT 


TABC 7)"*" ; -. . r . ... 


840 


VTAB 13: PRINT 


TABC 31 )".: :" •• • ■ •'- . 


850 


VTAB 15: PRINT 


TABC 13)"." 


860 


VTAB 16: PRINT 


TABC 3)"*" 


870 


VTAB 17: PRINT 


TABC 20)"." 


880 


VTAB 18: PRINT 


TABC 21)".." 


890 


IF FL = 1 THEN 


VTAB 19: PRINT TABC 18)"";: FLASH 


900 


IF FL = 1 THEN 


PRINT "X": NORMAL : GOTO 920 . . 


910 


VTAB 19 


: PRINT 


TABC 1 8) "X" 


920 


VTAB 21 


: PRINT 


TABC 32)"."; TABC 37)"." 


930 


VTAB 23 


: PRINT 


TABC 36)"." ^..- 


940 


VTAB 24 


: PRINT 


TABC 30)"."; TABC 37)"." ' I 


950 


IF FL = 1 THEN 


FL = 0: GOTO 7540 .; ' * 


960 


GOSUB 7450 


970 


INPUT "PRESS RETURN TO CONTINUE '^'AS ^ V f^y. .. | 


980 


GOTO 820 


M 


990 


C$ ^ "GEMINI" 


■f . ■ 


1000 


5S = "CASTOR" :S2J = "POLLUX" ' | 


1010 


HOME 




1020 


VTAB 7: PRINT 


TABC 22)"." 


1030 


IF FL = 1 THEN VTAB 7: PRINT TA6C 9)""; 


1040 


IF FL = 1 THEN FLASH : PRINT "X": NORMAL : GOTO 1060 


1050 


VTAB 8: PRINT 


TABC 9>"X" 



1 
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r 



CONSJ (con tin ued)- 



1060 
1070 

I 080 
1090 
1100 
1110 
1120 
1130 
1140 

II 50 
1160 
1170 
1180 

1 1 90 
1200 
1210 
1220 
1230 

12 40 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1 530 
1540 
1550 
1560 
1 570 
1580 
1590 
1600 



VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

IF FL = 

GOSUB 

INPUT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
THEN 

7450 

"PRESS 



TABC 
TAB( 
TAB< 
TABC 
TAB( 
TABC 
TABC 
TABC 
TABC 
TABC 
FL = C 



17)"." 
6)"X" 
10)"." 
2 5)"*" 
7)"." 

1 5)"*" 

2 0)"." 
15)"*" 
29) "X" 
27)"*" 
: GOTO 



TABC 
TABC 



7540 



32) 

31)' 



GOTO 1010 
C$ = "CANCER' 
HOME 



RETURN TO CONTINUE ";A$ 



5: 

11 
12; 
15; 
19; 
21 : 



PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 



VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

PRINT 

GOSUB 7450 

INPUT "PRESS 

GOTO 7610 
CS = "LEO" 
S$ = "RE6ULUS" 
HOME 

7: 



TABC 
TABC 
TAB< 
TABC 
TABC 
TABC 



15)", 
15)' 
1 9)' 
15)' 
ID' 
25)' 



TABC 26)' 



RETURN TO CONTINUE ";A$ 



VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

IF FL = 

IF FL = 

VTAB 17 

VTAB 19 

VTAB 20 

VTAB 22 

IF FL = 

GOSUB 

INPUT 



PRINT 
PRINT 
PRINT 
PR INT 
PR INT 
PRINT 
PRINT 
1 THEN 
1 THEN 
PR INT 
PRINT 
PRINT 
PRINT 
1 THEN 
7450 
"PRESS 



TABC 34)"." 
TABC 38)"*" 
TABC 29)"." 

TABC 14)"*' 

TABC 4)"." 

TABC 31 )".' 

TABC 4)"*" 

VTAB 17: PRINT TABC 30)"" 

FLASH : PRINT "X": NORMAl' 

TABC 30)"X" 

TABC 12)'V"; TABC 25)"." • 

TABC 18)"." 



TABC 17)' 



VTAB 15: PRINT TABC 



TABC 29)"*" 

14)"*' 



: GOTO 1450 
TABC 36)"." 



TABC U)" 



FL 



GOTO 



PRINT 
7540 



GOTO 1340 
C$ = "VIRGO' 
S$ ^ "SPICA' 

HOME 



RETURN TO CONTINUE ";A$ 



i'^ 



VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 



5: 

7: 

8: 

10: 

11 : 

12: 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TABC 
TABC 
TABC 
TABC 
TABC 
TABC 



18)" 

31)" 

33)" 

20) 

36)' 

12)' 



TABC 37)' 
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■CONST (continued) ■ 



1610 VTAB 13: PRINT TAB( 22)"*"; TAB( 28)"*" 

1620 VTAB 15: PRINT TABC 13)"." 

1630 IF FL = 1 THEN VTAB 19: PRINT TABC 10)""; 

1640 IF FL = 1 THEN FLASH : PRINT "X": NORMAL : GOTO 1660 

1650 VTAB 19: PRINT TABC 10) "X" 

16 60 PRINT 

1670 IF FL = 1 THEN FL = 0: GOTO 7540 

1680 GOSUB 7450 

1690 INPUT "PRESS RETURN TO CONTINUE " ;A$ 

1700 GOTO T540 

1710 C $ = "LIBRA" 

1720 HOME 

1730 VTAB 5: PRINT TABC 22)"." 

1740 VTAB 10: PRINT TABC 18)"*" 

1750 VTAB 12: PRINT TAB( 7)"." 

1760 VTAB 13: PRINT TAB( 13)"." 

1770 VTAB 14: PRINT TABC 8)"." 

1780 VTAB 15: PRINT TABC 25)"*" 

1790 VTAB 20: PRINT TABC 18)"." 

1800 PRINT : PRINT 

1810 GOSUB 7450 

1820 INPUT "PRESS RETURN TO CONTINUE " ;A$ 

1 830 GOTO 7610 . 

1 840 C$ = "SCORPIO" 

1 850 S$ = "ANTARES" 

1860 HOME 

1870 VTAB 5: PRINT TABC 30)". *" 

1880 VTAB 6: PRINT TAB( 33)"." 

1890 VTAB 7: PRINT TABC 34)"*" 

1900 VTAB 10: PRINT TABC 27)"*"; TABC 34)"*" 

1910 IF FL = 1 THEN VTAB 11: PRINT TABC 25)""; 

1920 IF FL = 1 THEN FLASH : PRINT "X": NORMAL : GOTO 1940 

1930 VTAB 11: PRINT TABC 25)"X" 

1940 VTAB 12: PRINT TABC 24)"*"; TABC 34)"." 

1950 VTAB 16: PRINT TABC 8)"*"; TABC 11)"**"; TABC 21)"*"; TABC 25) 

1960 VTAB 17: PRINT TABC 24)"." 

1970 VTAB 18: PRINT TABC 10)"*" 

1980 VTAB 19: PRINT TABC 9)"*"; TABC 21)"*" 

1990 VTAB 22: PRINT TABC 12)"*"; TABC 18)"*" 

2 000 PRINT ^ 

2010 IF FL = 1 THEN FL = 0: GOTO 7540 

2020 GOSUB 7450 

2030 INPUT "PRESS RETURN TO CONTINUE ";A$ 

2 040 GOTO 1860 / 

2050 C$ = "SAGITTARIUS" -V f ^ 

2 060 HOME ■ \ i I 

2070 VTAB 6: PRINT TABC 9)"." H:^r .* 

2 080 VTAB 7: PRINT TABC 9)"." ' IT 

2090 VTAB 9: PRINT TABC 12)"*"; TABC 15)"." 

2100 VTAB 10: PRINT TABC 14)"." 

2110 VTAB 12: PRINT TABC 15)"*"; TABC 25)"*" 

2120 VTAB 13: PRINT TABC 17)"*"; TABC 27)"." 

2130 VTAB 14: PRINT TABC 12)"*"; TABC 29)"." 

2140 VTAB 15: PRINT TABC 13)"*"; TABC 26)"*" 

2150 VTAB 16: PRINT TABC 29)"*" 



■■^i 
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CONST fcont/nued;- 



2160 
2170 
2180 

21 90 

22 00 
2210 
2 2 20 
2230 
2240 
2250 
2260 
2270 
22 80 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2580 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 



TAB( 
TAB( 



VTAB 19: PRINT 
VTAB 21 : PRINT 
PRINT : PRINT 
GOSUB 7450 
INPUT "PRESS RETURN 
GOTO 7610 
C$ = "CAPRICORNUS" 
HOME 

VTAB 6: PRINT TABC 
VTAB 8: PRINT TABC 
VTAB 10: PRINT TABC 
VTAB 14: PRINT TABC 
VTAB 15: PRINT TAB( 
VTAB 16: PRINT TABC 
VTAB 17: PRINT TAB( 
VTAB 21 : PRINT TABC 
PRINT : PRINT 
GOSUB 7450 
INPUT "PRESS 
GOTO 7610 
C$ = "AQUARIUS" 
HOME 

8: 

9: 

10: 

12: 

14: 

15: 

16: 

18: 

20: 



24>"*' 
25)"*' 



TO CONTINUE ";A$ 



32)"*' 
31}"*' 

6)"* 
9)".' 
13)": 
19)". 
1 7)"^ 
1 8)"* 



TABC 13)", 



TABC 26)' 



TABC 18) 



RETURN TO CONTINUE ";A$ 



VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

PRINT 

GOSUB 

INPUT 

GOTO 



PR INT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
: PRINT 
7450 

"PRESS RETURN 
7610 



TABC 

TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
PRINT 



13)"." 
11 )"* 
15)"* 
28)"* 
9 ) " , " 
37)". 
32)". 
10)". 
8)"*" 



TABC 19)"*" 



TABC 36)' 



TO CONTINUE ";A$ 



C$ = 
S$ = 

HOME 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

IF FL = 

IF FL = 

VTAB 19 

VTAB 20 
PRINT : 

IF FL = 



"ORION" 
"RIGEL" 



S2$ = "BETELGEUX":S3$ = 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
1 THEN 
1 THEN 
PRINT 
PR INT 
PRINT 
1 THEN 



TABC 

TABC 

TABC 

TABC 

TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
VTAB 
FLASH 



TABC 
TABC 



8)"."; 
31)"." 
10)"X" 
19)"." 
16)"." 

3 0)". 

19)"* 

17)"* 

15)"* 

16)"." 

16)":" 

19: PRINT 
PRINT 

24) "X" 

12)"*" 



"ORION NEBUL 
TABC- 16)".; 



A" 

TABC 30)"." 



TABC 
TABC 



31)".' 
21)"*' 



TABC 31)" 



TABC 21)". 



TABC 24)"", 
X": normal' 



GOTO 2680 



FL = 0: GOTO 7540 
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CONST (continued)- 



2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2 80 

2g10 

2S20 

2830 

2840 

2850 

2860 

2870 

2 880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

31 00 

31 10 

3120 

3130 

3140 

3150 

3160 

3170 

31 80 

31 90 

3200 

3210 

3220 

3230 

3240 

3250 



GOSUB 7450 
INPUT "PRESS 
GOTO 2530 

'LEPUS" 



RETURN TO CONTINUE ";A$ 



C $ = ■ 
HOME 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
PR INT 
GOSUB 
INPUT 
GOTO 



PRINT 
PR IM 
PR INT 
PR INT 
PR INT 
P RINT 
PR INT 
PRINT 
PRINT 
PRINT 
: PRINT 
7450 

"PRESS RETURN 
7610 



TABC 

TABC 

TAB( 

TAB( 

TAB( 
TABC 
TABC 
TABC 
TABC 
TABC 
PR INT 



2 5)".' 

2 2)". 

7)".", 

4)"." 

24)"*' 

16)"' 

9)".' 

18)"- 

12)" 

27)" 



TABC 10) 



TO CONTINUE ";A$ 



CJ = "CANIS MAJOR" 
SS = "SIRIUS" 
HOWE 



VTAB 7: 

IF FL = 

IF FL = 

VTAB 8: 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

IF FL 



10: 
12: 
13: 
14: 
1 5: 
16: 
18: 
20: 



PRINT 

1 THEN 

1 THEN 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PR INT 

PRINT 

PRINT 

PR INT 

1 THEN 



1 7)' 



TABC 

VTAB 

FLASH 
TABC 21)"X" 

TABC 23)". 



PR INT 
PRINT 



TABC 
"X": 



21)""; 

NORHAL 



GOTO 2970 



TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
FL = 



1 6)"*" 
12)".", 
14)"*" 
9)"*" 
1 5)"*" 
15)".", 
20)"." 
: GOTO 



TABC 27)"*" 



TABC 18)". 



TABC 
PR INT 
7540 



24) 



PR INT 



GOSUB 7450 

INPUT "PRESS RETURN TO CONTINUE " ;A$ 

GOTO 2920 
CJ = "CANIS MINOR" 
S$ = "PROC YON" 

HOME 



VTAB 8: PRINT 
VTAB 9; PR INT 
IF FL = 1 THEN 
IF FL = 1 THEN 
VTAB 12: PRINT 
VTAB 15; PRINT 
VTAB 22 

IF FL = 1 THEN 
GOSUB 7450 
INPUT "PRESS 
GOTO 3110 

C$ = "CETUS" 

S$ = "MIRA" 
HOME 



TABC 21) 
TABC 22> 

VTAB 12 

FLASH : 

TABC 

TABC 

FL = 



PRINT TABC 16)""; 



: PRINT "X' 
16)"X" 
6)"." 

: GOTO 7540 



NORMAL 



GOTO 3170 



f '^ 



^ 1 



RETURN TO CONTINUE 



;A$ 
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CONST (continued) 



3260 

3 2 70 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

5360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 



VTAB 2: 
VTAB 5: 
VTAB 6: 
VTAB 8: 
IF FL = 
IF FL = 
VTAB 9: 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 



13: 
14: 
15: 
18: 
21: 



TABC 
TABC 
TABC 
TAB( 
FL = ( 



PRINT TABC 
PRINT TABC 
PRINT TAB( 
PRINT TABC 
1 THEN 
1 THEN 
PRINT 
PR INT 
PR INT 
PR IWT 
PRINT 
PR INT 
IF FL = 1 THEN 
GOSUB 7450 
INPUT "PRESS RETURN 
GOTO 32 50 
Ci = "CORVUS" 
HOME 

VTAB 7: PRINT 
VTAB 8: PR INT 
VTAB 10: PR INT 
VTAB 15: PR INT 
VTAB 17: PRINT 
VTAB 22 
GOSUB 7450 
INPUT "PRESS 
GOTO 7610 
C$ = "CRATER" 
HOME 

13: 
16: 
17: 
20: 



14)""; 
NORMAL 



5)"."; TAB( 8) 
4)"*" 
8)"*" 
10)"." 
VTAB 9: PRINT TABC 
FLASH : PRINT ".": 
TABC 14)"," 
TABC 32)"*" 

25)"*"; TABC 35)"*" 
8)"."; TABC 26)"*" 
26)"*"; TABC 39)"*" 
22)".": PRINT : PRINT 
: GOTO 7540 



GOTO 3330 



TO CONTINUE 



rA$ 



TABC 14)"." 

TABC 15)"*" 

TABC 21)"*' 

TABC 13)"*' 

TABC 22)"*' 



TABC 22)"*" 



RETURN TO CONTINUE ";A$ 



VTAB 

VTAB 

VTAB 

VTAB 

PRINT 

PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TABC 
TABC 
TABC 
TABC 
PR INT 



13)"*" 
1 0)"*" 
20)"*" 
15)"*" 
: PRINT 



GOSUB 7450 
INPUT "PRESS 
GOTO 7610 
C$ = "HYDRA" 
HOME 

5: 

6: 

7: 

9: 

10: 

11 : 

14: 

16: 

17: 



RETURN TO CONTINUE ";A$ 



VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

PRINT : 

VTAB 21 

VTAB 23 

PRINT : 

GOSUB 

INPUT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
: PRINT 
7450 
"PRESS 



TABC 
TABC 
TABC 
TABC 
TABC 
TAB( 
TABC 
TABC 
TABC 

TABC 
TABC 



33)". 

34>". 

31 )"*' 

2 7)".' 
22)". 
2 5)", 
ID". 
5)".' 
18)", 

14)". 
14)"* 



TABC 28)" 



TABC 
TABC 



17)' 
1 7)' 



RETURN TO CONTINUE ";A$ 
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CONST (continued) 



3810 


GOTO 7610 




3820 C$ = "SERPENS" 




3830 


HOME 




3840 


VTAB 5: PRINT 


TABC 20)"." 


3850 


VTAB 6: PRINT 


TAB( 18)"," 


3860 


VTAB 7: PRINT 


TABC 16)"."; TABC 19)"." 


3870 


VTAB 12: PRINT 


TABC 21)"*" 


3880 


VTAB 14: PRINT 


TABC 1 8)"." 


3890 


VTAB 15: PRINT 


TABC 19)"*" 


3900 


VTAB 17: PRINT 


TABC 17)"*" 


3910 


VTAB 21: PRINT 


TABC 1 8>"*" 


3920 


PRINT : PRINT 




3930 


60SUB 7450 




3940 


INPUT "PRESS RETURN TO CONTINUE ";A$ 


3950 


GOTO 7610 




3960 


C$ = "DELPHINUS" 




3970 


HOME 




3980 


VTAB 8: PRINT 


TABC 17)"." 


3990 


VTAB 9: PRINT 


TABC 21)"." 


4000 


VTAB 10: PRINT 


TABC 18)"." 


4010 


VTAB 11: PRINT 


TABC 22)".." 


4020 


VTAB 13: PRINT 


TABC 23)"-" 


4030 


VTAB 15: PRINT 


TABC 24)"." 


4040 


PRINT : PRINT 




4050 


GOSUB 7450 




4060 


INPUT "PRESS RETURN TO CONTINUE ";AS 


4070 


GOTO 7610 




4080 


C$ = "AQUILA" 




4090 


S$ = "ALTAIR" 




4100 


HOME 




4110 


VTAB 4: PRINT 


TABC 27)"." 


4120 


VTAB 5: PRINT 


TABC 25)"*" 


4130 


VTAB 7: PRINT 


TABC 16)"*" 


4140 


IF FL = 1 THEN 


VTAB S: PRINT TAB( 1 5)""; 


4150 


IF FL = 1 THEN 


FLASH : PRINT "X": NORMAL 


4160 


VTAB 8: PRINT 


TABC 15)"X" 


4170 


VTAB 9: PRINT 


TABC 20)"." 


4180 


VTAB 10: PRINT 


TABC 14)"*" 


4190 


VTAB 14: PRINT 


TABC 14)","; TABC 22)"*" 


4200 


VTAB 15: PRINT 


TABC 9)"*" 


4210 


VTAB 19: PRINT 


TABC 27)"*" 


4220 


VTAB 20: PRINT 


TABC 29)"*" 


4230 


PRINT : PRINT 




4240 


IF FL = 1 THEN 


FL = 0: GOTO 7540 / 


4250 


GOSUB 7450 




4260 


INPUT "PRESS RETURN TO CONTINUE ";AS :f 


4270 


GOTO 4100 


\ 


4280 


C$ = "LYRA" 




4290 


S$ = "VEGA" 




4300 


HOME 




4310 


VTAB 5: PRINT 


TABC 15)"." 


4320 


VTAB 9: PRINT 


TABC 19)"." 


4330 


VTAB 10: PRINT 


TABC 8)"."; 


4340 


IF FL = 1 THEN 


PRINT TABC 21)""; 


4350 


IF FL = 1 THEN 


FLASH : PRINT "X": NORMAL 



GOTO 4170 



^^ 



GOTO 4370 
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■CONST (continued)- 



4_^60 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4 5 70 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4S30 

4840 

4850 

4860 

4870 

4880 

4890 

4900 



PRINT TABC 21)"X" 
VTA8 11: PRINT TAB( 
VTAB 12: print 
VTAB 16: PRINT 
VTAB 17: PRINT 
PRINT : PRINT 
IF FL = 1 THEN 
GOSUB 7450 
INPUT "PRESS 



7 ) " . '• 
15>".' 
1 7V'*' 
14)"*' 



TAB{ 
TABC 
TAB( 
PRINT 
FL = 0: GOTO 



T A B ( 18)".' 
: TABC 27)", 



GOTO 4300 
C$ = "CYGNUS" 
S$ ^ "DENEB" 
HOME 

VTAB 5: PRINT 
VTAB 6: PRINT 
VTAB 9: PRINT 
VTAB 1 0: PRINT 
VTAB 11: PRINT 
IF FL = 1 THEN 
IF FL = 1 THEN 



RETURN TO 



7540 
CONTINUE ' 



;A$ 



TABC 
TABC 
TABC 
TABC 



30)" 

2 8)" 

20)" 

20) 



PRINT TABC 15)"X 
PRINT TABC 26)"* 
VTAB 12: PRINT 



TABC 6)"."; 
PRINT TABC 15)"' 
FLASH : PRINT "X' 



NORMAL : GOTO 4570 



VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

PRINT 

IF FL 

GOSUB 

INPUT 



13: 
14: 
15: 
17: 
IS: 
20: 
22: 



PRINT 

PRINT 

PRINT 

PR INT 

PRINT 

PRINT 

PRINT 
: PRINT 
= 1 THEN 
7450 
"PRESS RETURN 



TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 



10)". 
ID". 
19)"* 
7)"." 
24)". 
14)"* 
8)"." 
30)"*' 



; TABC 20)" 
TABC 18)". 



GOTO 4480 
C$ = "HERCULES' 
HOME 



FL = 0: GOTO 7540 



TO CONTINUE ";A$ 



I 



VTAB 


5: PRINT 


VTAB 


6: PRINT 


VTAB 


7: PRINT 


VTAB 


9: PRINT 


VTAB 


10: PRINT 


VTAB 


13: PRINT 


VTAB 


14: PRINT 


VTAB 


15: PRINT 


VTAB 


16: PRINT 


VTAB 


1?: PRINT 


VTAB 


19: PRINT 


VTAB 


20: PRINT 


GOSUB 


7450 


INPUT 


"PRESS RE 


GOTO 


7610 


C$ = " 


OPHIUCHUS' 


HOME 




VTAB 


5: PRINT 



TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 
TABC 



18)" 
31)" 
2 8>" 

26)": 

13)' 
26)' 
ID' 
9)", 
13)' 
19)' 
4)". 
32)' 



TABC 30)". 

TABC 36)"." 
; TABC 20)"*' 
r TABC 22)"*' 

TABC 30)"*" 
PRINT 



PRINT 



RETURN TO CONTINUE ";A$ 



TABC 17)"*' 



TABC 26)' 
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CONSl (continued) ■ 



491C VTAB6:PRINT TABC25)"." 

492P VTAB 9: PRIMT TABC 31)"." 

4930 VTAB 10: PRINT TAB( 15)"*" 

4940 VTAB 11: PRINT TABC 10)". ."; TABC 14)"*" 

4950 VTAB 12: PRINT TABC 36)"*" 

4960 VTAB 13: PRINT TABC 34)"*" 

4970 VTAB 17; PRINT TABC 30>"*" 

4980 VTAB 18: PRINT TABC 14)"." 

4990 VTAB 20: PRINT TABC 22)"*" 

5000 PR INT : PR INT 

5010 GOSUB 7450 

5020 INPUT "PRESS RETURN TO CONTINUE " ;A$ 

5030 GOTO 7610 

5040 CS = "URSA MINOR 

5050 SS = "POLARIS" 

5060 HOME 

5070 IF FL = 1 THEN VTAB 7: PRINT TA8C 22)""; 

5080 IF FL = 1 THEN FLASH : PRINT "X": NORMAL : GOTO 5100 

5090 VTAB 7: PRINT TABC 22)"X" 

5100 VTAB 9: PRINT TABC 19)"," 

5110 VTAB 11: PRINT TABC 17)"." 

5120 VTAB 14: PRINT TABC 14)"."; TABC 17)"*" 

5130 VTAB 15: PRINT TABC 20)"." 

5140 VTAB 16: PRINT TABC 18)"*" 

5150 VTAB 17: PRINT TABC 15)"*" 

5160 PRINT : PRINT : PRINT 

5170 IF FL = 1 THEN FL = 0: GOTO 7540 

5180 GOSUB 7450 

5190 INPUT "PRESS RETURN TO CONTINUE '•;A$ 

5200 GOTO 5060 

5210 C$ = "URSA MAJOR" 

5220 S$ = "DUBHE":S2$ = "ALCOR" 

5230 HOME 

5240 VTAB 8: PRINT TABC 35)"." 

5250 IF FL = 1 THEN VTAB 10: PRINT TABC 25)""; 

5260 IF FL = 1 THEN FLASH : PRINT "*";: NORMAL : PRINT TABC 34)' 
: GOTO 5280 

5270 VTAB 10: PRINT TABC 25)"*"; TABC 34)"." 

5280 VTAB 11: PRINT TABC 8>"*" 

5290 VTAB 12: PRINT TABC 12)"*"; TABC 17)"*" 

5300 VTAB 13: PRINT TABC 3)"*" 

5310 VTAB 14: PRINT TABC 25)"*" 

5320 VTAB 15: PRINT TABC 18)"*" 

5330 VTAB 16: PRINT TABC 35)"." 

5340 VTAB 17: PRINT TABC 18)"." 

5350 VTAB 19: PRINT TABC 25)"."; TABC 33) 

5360 VTAB 20: PRINT TABC 32)"." 

5370 VTAB 24: PRINT TABC 24)":" 

5380 PRINT : PRINT 

5390 IF FL = 1 THEN FL = 0: GOTO 7540 

5400 GOSUB 7450 

5410 INPUT "PRESS RETURN TO CONTINUE ";A$ 

5420 GOTO 5230 

5430 C$ = "DRACO" 

5440 HOME 
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■CONST (continued)- 



5^50 


VTAB 5: 


PRINT 


TABC 36)"*" 




5460 


VTAB 7: PRINT 


TABC 34)"*" 




5470 


VTAB 10: PRINT 


TAS( 14)"* ." 




548D 


VTAB 11: PRINT 


TABC 14)"."; TABC 


35)"*" 


5490 


VTAB 12: PRINT 


TAB( 7)"." 




5500 


VTAB 13: PRINT 


TABC 6)"."; TABC 


9)"*" 


5510 


VTAB 14: PRINT 


TABC 8)"."; TABC 


20)"*" 


5520 


VTAB 15: PRINT 


TABC 24)"*" 




5530 


VTAB 16: PRINT 


TABC 31 )"*" 




5540 


VTAB 17: PRINT 


TABC 25)"*" 




5550 


VTAB 21: PRINT 


TAB< 14)"."; TABC 


17)"." 


5560 


VTAB 23: PRINT 


TABC 14)"*"; TABC 


17)"*" 


5570 


PRINT 






5580 


GOSUB 7450 






5590 


INPUT "PRESS RETURN TO CONTINUE " 


;A$ 


5600 


GOTO 7610 






5610 


Ci = "CANES VENATICI" 




5620 


HOME 






5630 


VTAB 11 : PRINT 


TABC 16)"."; TABC 


27)"." 


5640 


VTAB 14: PRINT 


TABC 20)"*" 




5650 


VTAB 20 






5660 


GOSUB 7450 






5670 


INPUT "PRESS RETURN TO CONTINUE " 


;A$ 


5680 


GOTO 7610 






5690 


C$ = "CEPHEUS" 






5700 


HOME 






5710 


VTAB 5: PRINT 


TABC 18)"*" 




5720 


VTAB 11 : PRINT 


TABC 24)"*" 




5730 


VTAB 13: PRINT 


TABC 16)"*" 




5740 


VTAB 17: PRINT 


TABC 25)"*" 




5750 


VTAB 18: PRINT 


TABC 30)"*" 




5760 


VTAB 19: PRINT 


TABC 17)"*" 




5770 


PRINT : PRINT : 


PR INT 




5780 


GOSUB 7450 






5790 


INPUT "PRESS RETURN TO CONTINUE " 


,-A$ 


5800 


GOTO 7610 






5g10 


C$ - "CASSIOPEIA 


" 




5820 


HOME 






5830 


VTAB 6: PRINT 


TABC 15)"." 




5840 


VTAB 7: PRINT 


TABC 14)"." 




5850 


VTAB 12 


PR INT 


TABC 11)"*" 




5860 


VTAB 16 


PR INT 


TABC 20)"*"; TABC 


30)"*" 


5870 


VTAB 17 


PRINT 


TABC 15)"*" 




5880 


VTAB 18 


PRINT 


TABC 22)"," , ' 




5890 


VTAB 19 


PRINT 


TABC 2 4)"*" ; 




5900 


VTAB 21 


PRINT 


TABC 26)"." .'" 




5910 


PRINT : PRINT : 


PRINT -f 




5920 


GOSUB 7450 






5930 


INPUT "PRESS RETURN TO CONTINUE "■ 


A$ 


5940 


GOTO 7610 






5950 


:$ ^ "PERSEUS" 






5960 


5$ ^ "ALGOL" 






5970 


HOME 






5980 


VTAB 5: PRINT 


TABC 23)"." 




5990 


VTAB 7: PRINT 


TABC 21 )"* ." 
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CONST (continued)- 



60DO VTAB 10: PRINT TABC 6)"."; TABC 18>"X"; TAB( 21)"."; TAB( 25) 

6010 VTAB 11: PRINT TAB{ 6)"." 

6020 VTAB 12: PRINT TABC 8)"."; TABC 13)"*" 

6030 VTAB 13: PRINT TABC 22)"." 

60AO VTAB 16: PRINT TAB( 14)"." 

6050 IF FL = 1 THEN VTAB 17: PRINT TABC 23)""; 

6060 IF FL = 1 THEN FLASH : PRINT "*": NORMAL : GOTO 6080 

6070 VTAB 17: PRINT TAB( 23)"*" 

6080 VTAB18:PRINT TABC11>"*" 

6090 VTAB 19: PRINT TABC 24)"." 

6100 VTAB 21: PRINT TAB< 12)"." 

6110 VTAB 23: PRINT TAB( 13)"*": PRINT 

6120 IF FL = 1 THEN FL = 0: GOTO 7540 

6130 GOSUB 7450 

6140 INPUT "PRESS RETURN TO CONTINUE ";A$ 

6150 GOTO 5970 

6160 C$ = "ANDROMEDA" 

6170 HOME 

6180 VTAB 5: PRINT TABC 14)"." 

6190 VTAB 6: PRINT TABC 15)"." 

6200 VTAB 7; PRINT TABC 33)"." 

6210 VTAB 8: PRINT TABC 33)"." 

6220 VTAB 9: PRINT TABC 34)"-" 

6230 VTAB 10: PRINT TABC 9)"*" 

6240 VTAB 11: PRINT TABC 14)"."; TABC 24)"." 

6250 VTAB 12: PRINT TABC 23)"." 

6260 VTAB 14: PRINT TABC 20)"*"; TABC 27)"." 

6270 VTAB 15: PRINT TABC 26)"." 

6280 VTAB 16; PRINT TABC 33)"*" 

6290 VTAB 17: PRINT TABC 26)".": PRINT : PRINT 

6300 GOSUB 7450 

6310 INPUT "PRESS RETURN TO CONTINUE ";A$ 

6320 GOTO 7610 

6330 C$ = "PEGASUS" 

6340 HOME 

6350 VTAB 6: PRINT TABC 22)"." 

6360 VTAB 7: PRINT TABC 19)"*" 

6370 VTAB 9: PRINT TABC 21)"." 

6380 VTAB 10: PRINT TABC 22)"." 

6390 VTAB 13: PRINT TABC 8)"*"; TABC 19)"*" 

6400 VTAB 16: PRINT TABC 23)"*" 

6410 VTAB 17: PRINT TABC 34)"*" 

6420 VTAB 18: PRINT TABC 28)"*" 

6430 VTAB 22 ./"i. 

6440 GOSUB 7450 / 

6450 INPUT "PRESS RETURN TO CONTINUE ";A$ ;| 

6460 GOTO 7610 ^ f .« 

6470 C$ = "BOOTES" '■ (-> 

6480 S$ = "ARCTURUS" 

6490 HOME 

6500 VTAB 6: PRINT TABC 21)". ." 

6510 VTAB 8: PRINT TABC 22)"." 

6520 VTAB 10: PRINT TABC 17)"*" 

6530 VTAB 11: PRINT TABC 20)"*" 
6540 VTAB 13: PRINT TABC 14)"*" 
6550 VTAB 15: PRINT TABC 21)"." 
6560 VTAB 17: PRINT TABC 19)"*" 



PROGRAM 21; CONST AND CONSH 207 



CONST (continued)- 



6 5 70 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6 700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

681 

6820 

6S30 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

71 10 

7120 

7130 



IF FL = 
IF FL = 
VTAB 20 
VTAB 21 
PRINT : 
IF FL = 
60SUB 
INPUT 



1 THEN 

1 THEN 

PRINT 

PRINT 

: PRINT 

= 1 THEN 

7450 

"PRESS 



VTAB 20: PRINT TAB( 25>"" 
FLASH : PRINT "X": NORHAl' 
TABC 25)"X" 
TABC 30)"*" 

FL = 0: GOTO 7540 



GOTO 6600 



GOTO 6490 
C$ = "CORONA" 
SS = "ALPHEKKA 
HOME 

7: 

S: 

ID 

12 

13 

14 



RETURN TO CONTINUE ";A$ 



PRINT 
PRINT 
PR INT 
PRINT 
PRINT 
PR INT 
1 THEN 
1 THEN 



TAB< 20)" 
TABC 9)". 
TABC 9)" 
TAB( 24) 
TABC 14) 
TABC 16) 
PRINT 
FLASH 



FL = 0: 



TO 



VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
IF FL = 
IF FL = 

PRINT TAB( 21 )"X" 
VTAB 21 

IF FL = 1 THEN 
GOSUB 7450 
INPUT "PRESS RETURN 
GOTO 6680 
C$ = "AURIGA" 
SS ^ "CAPELLA" 
HOME 

PR INT 
1 THEN 
1 THEN 
PRINT 

PRINT TAB( 
PRINT TABC 
PRINT TAB( 
PRINT TABC 
PRINT TABC 
PRINT TABC 



TABC 22)", 



TABC 21)"" 
PRINT "X" 



NORMAL 



GOTO 6780 



GOTO 7540 
CONTINUE ' 



;A$ 



11 

12: 

13; 

15: 

16; 

1 8: 

22 



VTAB 5: 
IF FL = 

IF FL = 

VTAB 10 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

VTAB 

IF FL = 1 THEN 

GOSUB 7450 

INPUT "PRESS 
GOTO 6850 
Ci = "ERIDANUS" 
HOME 

VTAB 5: PR INT 
VTAB 6: PRINT 
VTAB 7: PRINT 
VTAB 10: PRINT 
VTAB 11 : PR INT 
VTAB 12: PRINT 
VTAB 13: PRINT 
VTAB 1 5; PRINT 
VTAB 16: PRINT 
VTAB 2 4: PRINT 
PR INT 



TABC 16)"." 
VTAB 10: PRINT TABC 22)""; 
FLASH : PRINT "X": NORMAL* 
TABC 22)"X" 

14)"*" 

2 5)"." 

2 4)"-," 

16)".." 

14)"*" 

26)"*" 



GOTO 6900 



FL 



0; 



RETURN TO 



GOTO 7540 
CONTINUE ' 



;A$ 



/' 



TABC 
TAB( 
TABC 
TABC 
TABC 
TAB( 
TABC 
TABC 
TABC 
TAB ( 



25)" 
2 6)" 
19)", 
ID' 
6)". 
1 7)' 
24)' 
24)' 
20)" 
15)" 



TABC U) 



TAB( 28) 



TABC 34)" 
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■CONST (continued) 




IF FL 

GOSUB 7450 

INPUT " PRESS RETURN TO CONTINUE";A$ 

GOTO 7330 

REM SUB QUERY 

INPUT "NAME THIS CONSTELLATION 

IF A$ = C$ THEN FLASH : PRINT 
A$ = "" 

PRINT CLS;: INPUT "TRY AGAIN 

IF AS ^ C$ THEN 

PRINT "YOU 

PRINT " THE CONSTELLATION IS 
FL = 1 

REM 



7420 
7430 
7440 
7450 
74 60 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 

7560 

7570 

75S0 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 IF FL = 

7670 FL ^ 

76gO 2 = Z + 1 

7690 X = FRE (0) 

7700 END 



";A$ 
"CORRECT' 



NORMAL :FL = 1 : RETURN 




iJ 



NORMAL : GOTO 7600 



PRINT : GOTO 7620 



THEM 



;Y = FRE (A$): GOTO 420 



_ 
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CONSH 



8000 
801 
?020 
flD30 
8040 
8050 
8060 
8070 
8080 
8090 
810D 
81 10 
8120 
8130 
81 40 
81 5 

8160 
81 70 

81 80 
8190 
8200 
8210 
8220 
8230 
8240 
8250 

82 60 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 



SUPPLEHENTARY PROGRAM 
FOR CONSTELLATIONS OF 
THE SOUTHERN HEMISPHERE 



10 



REM 

REM 

REM 

HOME 

VTAB 

PR INT 

PR INT 

PR INT 

PRINT 

PRINT 

INPUT 
W = 1 
A = RND 
A = INT 
FL = 

ON A GOSUB 8160,8260,8370,8530,8670,8780,8880,9010,9200,9370 9500 
,9720,9830 ' 



PRINT "SOUTHERN HEMISPHERE CONSTELLATIONS' 
: PR INT : PR INT : PRINT 

TABC 6)"BY ERIC BURGESS F.R.A.S." 

TAB{ 6)"ALL RIGHTS RESERVED BY" 

TAB( 6)"S & T SOFTWARE SERVICE" 
: PRINT : PR INT 
"PRESS RETURN WHEN READY ";A$ 



(W) 
CA) 



14 
1 



9620 
C$ = " 
HOME 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
GOSUB 



CHAMAELEON' 



1 1 
12 
14 

15 
22 
9940 



PR INT 
PRINT 
PR INT 
PR INT 



TAB( 
TABC 
TABC 
TABC 



21)' 
28) 

9)": 

8)"i 



TABC 20)"*' 



TABC 27)"*' 



INPUT "PRESS RETURN 
GOTO 10030 
C$ = "MUSCA" 
HOME 

PRINT TABC 

PRINT TABC 

PRINT TABC 

PRINT TAB C 

PRINT TABC 



VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
VTAB 
GOSUB 



9: 
12 
13 
14: 
15: 
22 
9940 



TO CONTINUE ";A$ 



1 8) "*"; TAB C 22) "*' 
19)"*" 
20)"*" 
17)"." 
13)"." 



INPUT "PRESS RETURN 
GOTO 10030 
Cf = "HYDRUS" 

HOME 
S$ = "ACHERNAR" 
VTAB 5: PRINT 
PRINT 
PRINT 
PRINT 
PR INT 
1 THEN 
1 THEN 
1 THEN 
PRINT 
= 1 THEN 
9940 
"PRESS 



TO CONTINUE ";A$ 



7: 

13 
14 

19: 



VTAB 

VTAB 

VTAB 

VTAB 

IF FL ^ 

IF FL = 

IF FL = 

VTAB 21 : 

IF FL = 

GOSUB 

INPUT 



TABC 31)"*' 



TABC 24) 



TABC 11)"* 
TABC 26)". 

TABC 22)" 

TABC 19)" 

TABC 19)"*" 

VTAB 21 ; PRINT TABC 1 4) "" 

FLASH : PRINT TABC 14)""; 

FLASH : PRINT "X": NORMAL 

TABC 14)"X" 
FL = 0: GOTO 10080 



r 



A 



iT 



GOTO 8490 



RETURN TO CONTINUE 



:A$ 
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CONSH (continued) 



8520 


HOME : GOTO 840 


3 








8530 C$ = "PAVO" 










8540 


HOME 










8550 


VTAB 6: PRINT 


TAB( 25)"*" 








8560 


VTAB 8: PRINT 


TAB( 18)"*" 








8570 


VTAB 12: PRINT 


TAB< 19)"*" 








8580 


VTAB 13: PRINT 


TABC 25)"*"; TAB( 


31)"*" 


; TABC 36)"*" 




8590 


VTAB 14: PRINT 


TAB( 5)"*" 








8600 


VTAB 15: PRINT 


TABC 9)"." 








8610 


VTAB 16: PRINT 


TABC 13)"."; TABC 


17)"*" 






8620 


VTAB 17: PRINT 


TABC 12)"." 








8630 


VTAB 20: PRINT 


TABC 28)"*" 








8640 


GOSUB 9940 










8650 


INPUT "PRESS RETURN TO CONTINUE " 


;A$ 






8660 


GOTO 10030 










8670 


C$ = "TUCANA" 










8680 


HOME 










8690 


VTAB 9: PRINT 


TABC 11)"."; TABC 


26)"." 






S700 


VTAB 10: PRINT 


TABC 28)"*" 








8710 


VTAB 12: PRINT 


TABC 31)"*" 








8720 


VTAB 14: PRINT 


TABC 9)"*" 








8730 


VTAB 16: PRINT 


TABC 21)"*" 








87A0 


VTAB 22 










8750 


GOSUB 9940 










8760 


INPUT "PRESS RETURN TO CONTINUE " 


;AS 






8770 


GOTO 10030 










8780 


C$ = "APUS" 










8790 


HOME 










8800 


VTAB 11 : PRINT 


TABC 11)"." 








8 810 


VTAB 12: PRINT 


TABC 11)"." 








8820 


VTAB 13: PRINT 


TABC 13)"*"; TABC 


22)"* 


*" 




8830 


VTAB 15: PRINT 


TABC 25)"*" 








8840 


VTAB 22 










8850 


GOSUB 9940 










8860 


INPUT "PRESS RETURN TO CONTINUE " 


;AJ 






8870 


GOTO 10030 










8880 


C$ = "CENTAURUS 


' 








8890 


HOME 










8900 


VTAB 5: PRINT 


TABC 31)"*" 








8910 


VTAB 9: PRINT 


TABC 20)"."; TABC 


26)"*" 


; TABC 31)"X" 




8920 


VTAB 12: PRINT 


TABC 28)"." 








8930 


VTAB 15: PRINT 


TABC 10)"."; TABC 


22)"* 






8940 


VTAB 16: PRINT 


TABC 23)"." 








8950 


VTAB 17: PRINT 


TABC 8)"*" 






8960 


VTAB 19: PRINT 


TABC 23)"*" 






8970 


VTAB 21 ; PRINT 


TABC 20)". ."; TABC 29) 




8980 


GOSUB 9940 






ir 




8990 


INPUT "PRESS RETURN TO CONTINUE ' 


•;A$ 


jF 




9000 


GOTO 10030 










9010 


CS - "CARINA" 










9020 


SS = "CANOPUS" 










9030 


HOME 










9040 


VTAB 5: PRINT 


TABC 20)"*"; TABC 


27)"*" 






9050 


VTAB 8: PRINT 


TABC 15)"."; TABC 


19)"*" 






9060 


VTAB 9: PRINT 


TABC 23)"*"; TABC 


30)"*' 
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CONSH (continued) 



9070 


VTAB 12: PRINT 


TABC 26)"* *" 


9080 


VTAB 14: PRINT 


TABC 15)"*"; TABC 20)"**" 


9090 


VTAB 17: PRINT 


TAB{ 18)"*"; TAB( 24)"*" 


9100 


VTAB 19: PRINT 


TABC 12)"*" 


91 10 


IF FL = 1 THEN 


VTAB 20: PRINT TAB( 3)""; 


9120 


IF FL = 1 THEN 


FLASH : PRINT TABC 3)"";' 


9130 


IF FL = 1 THEN 


FLASH : PRINT "X": NORMAL 


91 iO 


VTAB 20: PRINT 


TABC 3)"X" 


9150 


VTAB 21 




9160 


IF FL - 1 THEN 


FL = 0: GOTO 10080 


91 70 


GOSUB 9940 




9180 


INPUT "PRESS RETURN TO CONTINUE "•A? 


91 90 


GOTO 9030 




9200 


C$ = "LUPUS" 




9210 


HOME 




9220 


VTAB 6: PRINT 


TABC 22)"*" 


9230 


VTAB 7: PRINT 


TABC 12)"." 


92A0 


VTAB 8: PRINT 


TABC 14)"." 


9250 


VTAB 9: PRINT 


TABC 22)"." 


9260 


VTAB 10: PRINT 


TABC 15)"*"; TABC 20)"."- 


9270 


VTAB 11: PRINT 


TABC 21)"." 


9280 


VTAB 12: PRINT 


TABC 23)"*" 


9290 


VTAB 13: PRINT 


TABC 18)"*" 


9300 


VTAB 14: PRINT 


TABC 23)"*"; TABC 26)"*" 


931 


VTAB 17: PRINT 


TABC 22)"."; TABC 32)"*" 


9320 


VTAB 19: PRINT 


TABC 29) "." 


9330 


VTAB 22 




9340 


GOSUB 9940 




9350 


INPUT "PRESS RETURN TO CONTINUE " - fl i; 


9360 


GOTO 10030 




,9 3 70 


C$ = "ARA" 




9380 


HOME 




9390 


VTAB 6: PRINT 


TABC 26)"." 


9400 


VTAB 9: PRINT 


TABC 24)"*" . . 


9410 


VTAB 11 


■ PRINT 


TABC 17)"*" 


9420 


VTAB 13 


PRINT 


TABC 23)"*" 


9430 


VTAB 14 


PRINT 


TABC 18)"*"; TABC 23)"*" 


9440 


VTAB 16 


PRINT 


TABC 18)"." 


9450 


VTAB 19: 


PRINT 


TABC 24)"*"; TABC 30)"." 


9460 


VTAB 22 




9470 


GOSUB 9940 




9480 


INPUT "PRESS RETURN TO CONTINUE "rAS 


9490 


GOTO 10030 




9500 


:$ = "PHOENI X" 


Ill ■■ 

FAB C 22)"*" \ ^ i 


9510 


HOME 


9520 


VTAB 7: PRINT 


9530 


VTAB 13: PRINT 


TABC 28)"*" ^ f^*■ 


9540 


VTAB 14: PRINT 


TABC 8)"*"; TABC 16)"."; T 


9550 


VTAB 15: PRINT 


TABC 31)"." 


9560 


VTAB 16: PRINT 


TABC 12)"*"; TABC 33)"." 


9570 


VTAB 18: PRINT 


TABC 12)"*"; TABC 26)"*" 


9580 


VTAB 22 




9590 


GOSUB 9940 




9600 


INPUT "PRESS RETURN TO CONTINUE "-Af 


96T0 


GOTO 100 


30 





TABC 24)" 



GOTO 9150 



TABC 23) 



TABC 22)"*' 
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CONSH (continued) 



9620 C$ = "TRIANGULUM AUSTRALIS" 

9630 HOWE 

9640 VTAB 9: PRINT TAB( 22>"." 

9650 VTAB 10: PRINT TAB( 14)"*"; TAB C 25)"*" 

9660 VTAB 12: PRINT TAB( 16)"." 

9670 VTAB 14: PRINT TABC 18)"*"; TAB( 22)"." 

9680 VTAB 22 

9690 GOSUB 9940 

9700 INPUT "PRESS RETURN TO CONTINUE ";A$ 

9710 GOTO 10030 

9720 CJ = "GRUS" 

9730 HOME 

9740 VTAB 7: PRINT TABC 22)"." 

9750 VTAB 8: PRINT TABC 20)"*" 

9760 VTAB 12: PRINT TABC 12)"*"; TABC 21)"*" 

9770 VTAB 14: PRINT TABC 28)"." 

9780 VTAB 16: PRINT TABC 27)"." 

9790 VTAB 22 

9800 GOSUB 9940 

9810 INPUT "PRESS RETURN TO CONTINUE ";A$ 

9820 GOTO 10030 

9830 C$ = "CRUX" 

9840 HOME 

9850 VTAB 8: PRINT TABC 20)"X" 

9860 VTAB 11: PRINT TABC 17)"." 

9870 VTAB 12: PRINT TABC 25)"*" 

9880 VTAb 13: PRINT TABC 15)"*" 

9890 VTAB 15: PRINT TABC 20)"*"; TABC 25)"." 

9900 VTAB 22 

9910 GOSUB 9940 

9920 INPUT "PRESS RETURN TO CONTINUE ";A$ 

9930 GOTO 10030 

9940 REM SUBROUTINE FOR QUERY 

9950 INPUT "NAME THIS CONSTELLATION ";A$ 

9960 IF A$ = C$ THEN FLASH : PRINT "CORRECT": NORMAL :FL = 1: RETURN 

9970 AS = "" 

9980 PRINT CL$;: INPUT "TRY AGAIN ";A$ 

9990 IF AS = C$ THEN GOTO 9960 

10000 PRINT "YOU ARE STILL WRONG" 

10010 PRINT "THE CONSTELLATION IS ";C$ 

10 020FL=1:RETURN • 

10030 HOME : PRINT : PRINT : PRINT 

10040 INPUT "ANOTHER TEST? Y/N ";AS 

10050 IF A? = "N" THEN HOME : GOTO 10160 

10060 IF A$ < > "Y" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 10030 

10070 W = W + A: GOTO 8120 

10080 REM SUB STAR QUERY 

10 090 INPUT "NAME THIS STAR "; AS ' * 

10100 IF AS = S$ THEN FLASH : PRINT "CORRECT": NORMAL : GOTO 10140 

10110 INPUT "WRONG; TRY AGAIN ";AS 

10120 IF AS = SS THEN GOTO 10100 

10130 PRINT "STILL WRONG, THE STAR IS ";SS 

10140 INPUT "PRESS RETURN TO CONTINUE ";A$ 

10150 HOME : PRINT : PRINT : PRINT : GOTO 10030 

10160 HOME 

10170 END 



i 



1 1* .' 




1'^' 




Photo Credit: NASA 



Anyone interested in astronomy often wants to refer program gives a menu from which to select informa- 

to data about the planets and their satellites: How tion about the planets and their satellites and about 

large is the Moon? How far away is it from Earth? the larger asteroids, the Sun, and the Moon. This 

How massive are other satellites compared with our Apollo 1 5 picture shows the bnghtest crater on the 

Moon? The questions are unlimited. The following Moon, Aristarchus. 



215 



Program 22: PLNDT 



Solar System Data. 



Amateur astronomers often find themselves trying to locate data 

about a planet or a satellite for observation, for calculations, or merely for 
information. Sometimes the item of data you want does not appear in the 
books you have access to, or cannot be located easily. With this program 
you can always have these important items of astronomical data available 
for quicl< access-in the time it takes to load a disk into your system. The 
program offers several menus— the solar system, planets, satellites, rings, 
and astronomical constants. There are also submenus allowing quick access 
to information of greaterdetail. Typical displays of the program are shown 
in Figure 22.1a-d. 

The data are the most current available, but the remark (REM) 
statements will allow you to update data as it becomes available or is refined 
in the future. 

Not all of the small satellites of Jupiter and Saturn are included, but 
when you are keying in the program these could be added, if you wish, at 
the appropriate places. Note that in the data statements 0.0 is used where 
values are either extremely small or not clearly defined. These data also 
can be amended if you wish. 

Take great care when entering the data. A single misplaced comma or 
period can produce wild data throughout the program. 

The listing for the PLNDT program follows. 
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SELECT. . . 



SOLAR SYSTEM 

PLANETS 

SATELLITES 

RINGS 

ASTEROIDS 

ASTRONOMICAL CONSTANTS 



SELECT t THRU 6 OR 999 TO END 1 



A series of menu displays generated during a search for planetary data. 
Figure 22. ta 



PLANETARY DATA 

DIST.FROM SUN 
I N 
A.U. 



t> MERCURY 
2) UEHUS 
3> EARTH 

4) MARS 

5) JUPITER 

6) SATURN 
7> URANUS 
8> NEPTUNE 
9> PLUTO 



.38? 
.723 



" ~:&4 
^ . J78 
19.26 
30.094 
39.829 



DIAM. 
THOUS 
MILES 



3036 

7525 

7926 

4223 

88052 

74568 

31567 

30200 

3977 



NONE 
NONE 
0NE 
TWO 

16 

17 
FOUR 
TWO 
ONE 



SELECT 1 THRU 9 OR 999 FOR MENU K 



Figure 22.1b 
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Figure 22. 7c 



PHYSICAL DETAILS OF MARS 



EeUATORIAL DIAM.< MILES) 

POLAR DIAM.< MILES) 

HASS <EARTH==1) 

DENSITY 

ROTATION PERIOD < HOURS ) 

AXIS INCLINATION <DEG.> 

SURFACE GRAUITY <G'S) 

ALBEDO 



PRESS RETURN TO CONTINUE 1 



4223 
4261 
. 1 08 



24.62 
25.2 



figure 22. Id 
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PLNDT 



10 HOME : PRINT : PRINT 

20 DIM PD(1 0,16), JC) (1 2,6), SD(1 8,8) 

30 DIM UD(5,6>,ND{2,6),DMC2,6),DAC10,9) 

40 PR INT "PLEASE WAIT; LOADING DATA" 

50 60SUB 1680: GOSUB 1910: GOSUB 2080: GOSUB 2310 

60 GOSUB 2420: GOSUB 2490: GOSUB 2560 

70 HOME : PRINT : PRINT 

80 PRINT : PRINT 

90 PRINT TAB( 8)" " 

100 PRINT TABC 8)"I SOLAR SYSTEM I 

110 PRINT TAB( 8)" " ^_ 

120 PR INT : PR INT 

130 PRINT TAB( 9)"AN ASTRONOMY PROGRAM" 

140 PRINT TABC 6)"BY ERIC BURGESS F.R.A.S." 

150 PR INT : PRINT 

160 PRINT TABC 7)"ALL RIGHTS RESERVED BY" 

170 PRINT TABC 7)"S & T SOFTWARE SERVICE" 

180 PR INT : PR INT 

190 PRINT "PROVIDES DATA ON SOLAR SYSTEM OBJECTS" 

200 FOR K = 1500 TO STEP - 1: NEXT K 

21 HOME : P R INT : PR INT 

220 PR INT "SELECT. ..." 

230 PR INT ; PR INT 

240 PRINT TABC 4)"1) SOLAR SYSTEM" 

250 PRINT : PRINT TABC 4)"2) PLANETS" 

260 PRINT : PRINT TABC 4)"3) SATELLITES" 

270 PRINT : PRINT TABC 4)"4) RINGS" 

280 PRINT : PRINT TABC 4) "5) ASTEROIDS" 

290 PRINT : PRINT TABC 4)"6} ASTRONOMICAL CONSTANTS' 

300 PR INT : P R INT 

310 INPUT "SELECT 1 THRU 6 OR 999 TO END ";M 

320 IF M = 999 THEN M = 7 

330 ON M GOTO 340,2710,5 5 90,580,3 510,7730,8100 

340 HOME : PRINT 

350 PRINT "SOLAR SYSTEM... ": PRINT 

360 PRINT TABC 20)"0IST. FROM SUN" 

370 PRINT TABC 2A)"IN A.U." 

380 PRINT " — " 

390 PRINT "1) SUN"; TABC 27r'N/A" 

400 PRINT "2) MERCURY"; TABC 28)PDC1,1> 

410 PRINT "3) VENUS"; TABC 28)PDC2,1) 

420 PRINT "A) EARTH"; TABC 26>PDC3,1) 

430 PRINT "5) MARS"; TABC 26)PDC4,1) 

440 PRINT "6) ASTEROIDS"; TABC 26)PDC10,1) 

450 PRINT "7) JUPITER"; TABC 26)PDC5,1) 

460 PRINT "8) SATURN"; TABC 26)PD(6,1) 

470 PRINT "9) URANUS"; TABC 25)PDC7,1) 

480 PRINT "10) NEPTUNE"; TABC 25>PD(8,1) 
490 PRINT "11) PLUTO"; TABC 25)PDC9,1) 
500 PRINT 

510 PRINT " " 

520 PRINT 

530 INPUT "SELECT 1 THRU 11 OR 999 FOR MENU ";N 
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PlNDl (continued) 



5AD 

550 

560 

570 

580 

590 

600 

610 

620 

630 

6i0 

650 

660 

670 

680 

690 

700 

710 

720 

730 

7i0 

750 

760 

770 

780 

790 

800 

81 

820 

830 

S40 

850 

860 

870 

880 

890 

900 

91 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1 01 

1020 

1030 

10A0 

1050 

1060 

1070 

1080 



IF N 
IF N 
IF N 
ON N 
HOME 
PR INT 
PRINT 
PR INT 
PRINT 
PRINT 
PR INT 
PR INT 
PRINT 
P R INT 
INPUT 
IF Z = 



P = N - 1 



GOTO 560 



> 1 AND N < 6 THEN 

> 6 THEN P = N - 2 
= 999 THEN N = 1 2 

GOTO 1450,2940,3050,3160,3280,3510,3840,4180,4710,5030,5260,210 
: PR INT : PR INT 

"PLANETARY R INGS" 
: PR INT 



TABC 4) "1 ) 
PRINT TAB( 
PRINT TABC 
PRINT TAB( 



J UP ITER" 
4)"2) SATURN" 

4>"3) URANUS" 

4)"4) OTHERS" 



PR INT 

SELECT 1 THRU 4 OR 999 FOR MENU 

999 THEN Z = 5 
ON 2 GOTO 710,900,1130,1320,210 
HOME : PRINT : PRINT : PRINT 

JUPITER'S RING SYSTEM" 



TAB C 
TAB( 



RING 1 



PR INT 

PR INT 

PR INT 

PR INT 

P R INT 

P R INT 

PRINT 

PRINT 

PR INT 

PR INT 

PR INT 

PR INT 

PRINT 

P R INT 

P R INT 

INPUT "PRESS RETURN 

IF F = 1 THEN F = 

GOTO 580 

REM SATURN'S RINGS 



8) "INNER DIAM . "; 
1 2 ) "MILES"; TAB( 



TABC 20)"WIDTH" 
20)"MILES" 



TA8C 1 0)"29,200"; 

RING 2"; TABC 1 0)"3 2,435 "; 

A VERY TENUOUS RING SYSTEM 
FROM THE INNERMOST RING TO 



TABC 2O)"3,100" 



TABC 20)" 500" 



EXTENDS" 
THE PLANET" 



TO CONTINUE 
GOTO 3840 



: AS 



HOME : 

PRINT ' 

PRINT ' 

PR INT 

P R INT 

P R INT 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT 

PR INT 

PRINT 

PRINT 

PR INT 

P R INT 

P R INT 

P RINT 

PRINT 



PR INT : PR INT : PR INT 
RING SYSTEM OF SATURN" 



PRINT TABC 8)"INNER DIAM."; TABC 20VWIDTH" 
TABC 12)"MILES"; TABC 20)"MILES" 



D RING", 
C RING", 
E RING", 
"A RING' 
"F RING' 
" G RING' 
"E RING' 



TABC 10)" 
TABC 10); 
TABC 10)" 

: TABC 1 0) 

; TABC 

: TABC 

; TABC 



41,600"; TABC 20)" 
' 49,580"; TABC 20)' 

56,850"; TABC 20)" 
' 75,740"; TABC 20)' 



10)" 87,180"; 
1D)"105,630"; 
1D)"111,845"; 



TABC 
TABC 
TABC 



20) 
20) 



4,350" 

' 11,120" 

15,840" 

9,130" 

60" 

6,210" 



20)"1 86,400" 



DIVISIONS" 
CAS INI"; TABC 



103" 72950", 



ENCKE"; TABC 10)" 82,790"; 



TABC 
TABC 



20)" 
20)" 



2,800" 
200" 
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PLNDT (cont/nuedj 



TO CONTINUE 
GOTO 418D 



TABC 


8)" 


INNER 


DIAM. "; TABC 


20)"WIDTh 


'■ 


TAB( 


12) 


■MILES 


"; TABC 20)- 


FILES' 






RING 


6' 




TAB( 


10)-26,300"; 


TABC 


22)' 


'5" 


RING 


7' 




TABC 


10>"26,50O"; 


TABC 


2^)' 


■5" 


RI^G 


r 




TABC 


10)'^27,800"; 


TABC 


22) 


'6^' 


RING 


?' 




TABC 


10)"28,700"; 


TABC 


22) 


'6" 


RING 


3' 




TABC 


10)"29,600"; 


TABC 


22) 


■6" 


RING 


4' 




TABC 


10)"30,600"; 


TABC 


22) 


■6" 


RING 


V; 


TABC 


10)"31^500"; 


TABC 


20) 


■100" 



TO CONTINUE 
GOTO 4710 



1090 PRINT '■ 

1100 INPUT "PRESS RETURN 

1110 IF F ^ 1 THEN F = 

1120 GOTO 580 

1 1 30 REM URANUS ' R INGS 

1140 HOME : PRINT : PRINT : PRINT 

1150 PRINT "URANUS' RING SYSTEM" 

1160 PR INT 

1170 PRINT 

1 1 80 PR INT 

1190 PR INT 

1200 PRINT 

1210 PR INT 

1220 PRINT 

1230 PRINT 

1240 PRINT 

1250 PRINT 

1260 PRINT 

1270 PRINT 

1280 PRINT 

1290 INPUT "PRESS RETURN 

1300 IF F = 1 THEN F = 

1310 GOTO 580 

1320 REM OTHERS 

1330 HOME : PRINT : PRINT : PRINT 

1340 PRINT "OTHER RINGS?" 

1350 PRINT ■' " 

1360 PRINT 

1370 PRINT 

1380 PRINT 

1390 PRINT 

1400 PRINT 

1410 PRINT " 

1420 INPUT "PRESS RETURN 

1 430 IF F = 1 THEN F = 

1440 GOTO 580 

1450 REM DATA FOR SUN 

1460 HOME : PRINT : PRINT : PRINT 

1470 PRINT "THE SUN - OUR NEAREST 

1480 PRINT " 

1490 PRINT 

1500 PRINT 

1510 PR INT 

1520 PRINT 

1530 PRINT 

1540 PRINT 

155 PRINT 

1 560 PR INT 

1 570 PR INT 

1580 PRINT 

1 590 PR INT 

1600 PRINT 

1610 PRINT 

1620 PRINT 

1630 PRINT 



" ; A$ 



";A$ 



PR INT 
NO PLANETS OTHER THAN JUPITER, SATURN," 
AND URANUS APPEAR TO HAVE RINGS" 
BUT THERE HAVE BEEN SPECULATIONS" 
THAT NEPTUNE MAY HAVE A RING SYSTEM" 



TO CONTINUE ■' ; A $ 
GOTO 5030 



STAR" 



'DISTANCE CMILLION MI)"; TABC 30)" 92.953" 
'DIAMETER CMILES)"; TABC 30)"864,000" 
■MASS CEARTH^D"; TAB( 30)"332,958" ! 



'ROTATION PERIOD CDAYS) 

'AXIS INCLINATION CDEG. 
CTO ECLIPT IC) " 



TABC 30)" 25- 
'; TABC 30)" 7 



38" 



25' 



SUNSPOT CYCLE CYEARS)"; TABC 30)" 11" 



'SPECTRAL TYPE' 



TABC 30)" 



G" 
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PINDJ (continued) 



1640 PRINT " .r 

1650 PRINT 

166D INPUT "PRESS RETURN TO CONTINUE ";A$ 

1670 GOTO 210 

1680 REPl DATA FOR PLANETS 

1690 FOR XP ^ 1 TO 9: FOR YP = 1 TO 16 

1 700 READ PO (XP , YP ) 

1710 NEXT yP,XP 

1720 REM MERCURY 

1730 DATA .387, 3036, 3036,. 055, 5. 4, .06, .27, 58. 7,0, .20 56, 7. 0044^. 241, 48. 0994, 

77. 1511,4.0923,1 58.2455 
1 740 REM VENUS 

175 DATA .72 3, 75 2 5, 75 2 5,. 81 7, 5. 2,. 6 5,. 8 5, 24 3, 178,. 0068, 3. 9444,. 611 5, 

76. 5038, 131. 2958, 1.6021, 226. 04 61 
1760 REM EARTH 

1770 DATA 1,792 6, 78 99, 1,5. 5,. 5 5, 1,23. 92, 2 3. 4,. 01 67, 0,1, 0,1 02. 604,. 98 56, 

357.2227 
1780 REM MARS 

1790 DATA 1.52 4, 42 2 3, 42 01,. 108, 3. 9, .15,. 38, 24. 62, 2 5. 2,. 0934, 1.85, 1.881, 

49.4066,33 5.699, . 52 40, 1 5 1 . 1 5 44 
1800 REM JUPITER 

1810 DATA 5. 204, 88 5 2, 82 4 17, 3 18. 4, 1.31,. 42, 2. 33, 9. 84, 3. 07,. 04 78, 1.30 5 7, 

11 .86,100. 24 48,14. 5847, .0831,13 2. 72 03 
1820 REM SATURN 

183 DATA 9. 578, 74 568, 6711 1,95. 2,. 7,. 4 5,. 92, ID. 22, 26. 74,. 05 5 5, 2. 4 864, 29. 46, 

113. 5115, 95. 4 709, .03 34, 69. 5615 
1840 REM URANUS 

1850 DATA 19. 260, 3 156 7, 300 5 2, 15, 1.31,. 46,. 8 5, 10. 82, 97. 93,. 00 503,. 771 6, 84. 01, 

74.00 54,1 72.92 22, .01166, 54. 99 53 
1860REMNEPTUNE '■ 

1870 DATA 30. 094, 30200, 2 95 96, 17. 2, 1.66,. 55, 1.1 2, 15. 67, 28. 8,. 0066, 1.7730, 

164.8,131. 5228, 58. 51 2,. DO 597, 199. 74 8 
1880 REM PLUTO 
1890 RETURN 

1900 DATA 39. 829, 3977, 3977,. 1,4. 9,. 14,. 44, 153. 84,0,. 2 548, 17. 1372, 248. 6, 

109. 96 58, 223. 0141, .00392, 346. 4629 

1910 REM DATA FOR JOVIAN SATELLITES 

1920 FOR JS = 1 TO 12: FOR SJ = 1 TO 6 

1 930 READ J D CJS,S J) 

1 940 NEXT S J, JS - :• 
1950 DATA 112.8, .0028,-455, .498, .00008, 125 

1960 DATA 262.2,0,-027 , 1 . 77, , 98 , 2262 

1970 DATA 417.2, .0003, .47, 3-55, .65,1864 

1980 DATA 665. 5, .0015, .18, 7. 15, 2. 1,3274-6 

1990 DATA 1170.6,-0075, .25,16.69,1.3,3107 /^f 

2000 DATA 7137,-158,27.6,250.57,-00003,106 £(^ 

2010 DATA 7299,-207,24.8,259.65,0.0,50 Wfl 

2020 DATA 7370, . 1 3, 29, 26 3 - 55 , . 0, 1 5 \ . "* .i 

203 DATA 13204,-169,147,631,0.0,12 i^t 

2040 DATA 14005,-207,164,692,0.0,20 '* 

2050 DATA 14608,-378,14 5,739,0.0,22 ' '. ' 

2060 DATA 1 4 70 7, . 2 7 5 , 1 53 , 758 , 0- 0, 1 7 

2070 RETURN ' " • 

2080 REM DATA FOR SATURN SATELLITES 

2 09 FOR SS = 1 TO 18: FOR SA = 1 TO 8 
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PINDJ (continued) 



2100 READ SD(SS,SA) 

2110 NEXT SA: NEXT SS 

2120 DATA 85. 5, 0.0, 0.0, .602, 0.0, 48, 0.0, .4 

2130 DATA 86.6,0.0,0.0, .613, 0.0, 37, 0.0, .6 

2140 DATA 88. 0,0. 0,0. 0,-629, 0.0, 56, 0.0, .6 

2150 DATA 94. 1,0. 0,0. 0,-694, 0-0, 75, 0.0, .4 

2160 DATA 94. 1,0-0,0.0, .694,0.0,125,0.0,-4 

2170 DATA 115.3,-02,1 . 5, - 943, . 00005, 244, 1 . 44, . 6 

2180 DATA 115-6,0.0,0-0,0-0,0.0,0.0,0.0,0.0 

2190 DATA 147.9,-004, .0002,1 .37, .001, 310,1 . 16, .9 

2200 DATA 1 83 . 1 , 0, . 0008, 1 . 888, . 0088,659, 1 - 21 ,- 8 

2210 DATA 183-1,0.0,0.0,1.888,0-0,18,0-0,-6 

2220 DATA 1 83 . 1 , - 0, . 0, 1 . 888, . 0, 1 7, . 0, . 8 

2230 DATA 234 . 5 , . 002 , . 0002 , 2 - 73 7, - 01 43, 696, 1 . 43, . 62 

2240 DATA 2 34-9,0.0,0.0,2.73 9,0.0,21,0-0,-5 

2250 DATA 327. 5,. 001 , -35,4. 518,-02,951,1 .33, .65 

2260 DATA 759. 2, . 029, - 333, 1 5 . 945, 1 . 87,3200, 1 . 88, . 2 

22 70 DATA 920. 2, -104, 0.0, 21. 27, 0-0, 186, 0.0, .3 

22 80 DATA 2212. 5, .02 8, 14. 72, 79. 58,. 02, 907, 1.16, -5 

2290 DATA 8048 . 9, . 1 63, 1 5 - 05 , 5 50 . 45 , . 0, 1 37, . 0, - 06 

2300 RETURN 

2310 REM DATA FOR OTHER SATELLITES 

2320 REM URANUS 

2330 FOR US = 1 TO 5: FOR SU = 1 TO 6 

2340 READ UD(US,SU) 

2350 NEXT SU: NEXT US 

2360 DATA 80.65,-01,0-0,1.414,-0004,186 

2370 DATA 1 1 8 - 6, . 0033 , . 0, 2 . 52 , . 01 8, 497 

2380 DATA 1 65 - 5, . 01 1 , 0. 0, 4. 1 44, . 0073,342 

2590 DATA 270-9,-0018,0.0,8.706,-0593,621 

2400 DATA 362 . 5 , . 0007, . , 1 5 . 463 , . 034, 5 5 9 

2410 RETURN 

2420 REM NEPTUNE SATELLITES 

2430 FOR NS = 1 TO 2: FOR SN = 1 TO 6 

2440 READ NDCNS,SN) 

2450 NEXT SN,NS 

2460 DATA 220.9,0,159-95,5.88,1-9,2361 

2470 DATA 34 59 - 1 , . 75 , 27 . 71 , 3 5 9 . 9, . 006, 1 86 

2480 RETURN 

2490 REM MARS SATELLITES 

2500 FOR MS = 1 TO 2: FOR SM = 1 TO 6 

251 READ MD(rS,SM) 

2520 NEXT SM: NEXT MS 

2530 DATA .5828,-01 5,1 -0,.31 89,0-0,13. 5 

2540 DATA 1 45 7 . 7, . 0005 , 2 . 0, 1 . 2624 , . 0, 7 . 1 

2550 RETURN 

2560 REM SUB FOR ASTEROID DATA 

25 70 FOR AA = 1 TO 10: FOR MA = 1 TO 9 

2580 READ DACAA,MA) 

2590 NEXT MA: NEXT AA 

2600 DATA 2 . 7675 , 623 , . 0783, 1 - 605 , 4 . 604, . 2 1 408, 80 . 05 1 , 73 . 54 5 , 88 

2610 DATA 2. 7737, 378, .2326, 34-794, 4. 6195, .21336, 172. 712, 310. 045 

2620 DATA 2. 3612, 334,. 0892, 7. 143, 3. 62 84,. 27164, 103 -44 2, 150. 133, 

2630 DATA 3-1355,280,-1196,3.836,5-5522,-17752,283.125,317-987, 

264 DATA 2. 92 23, 155, -1370, 3- 09 2, 4. 99 56,. 19 73 0,1 50. 123, 226. 152, 



ft- 



.020 

,78-086 

57-113 

289.675 

167.565 
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2650 
2 66 
2670 
2680 
Z690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2 840 
2850 
2860 
2870 
2880 
2890 
2900 
291 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
31 00 
31 10 
31 20 
31 30 
3140 
31 50 
3160 
31 70 
3180 
3190 



1462, 230, .22 76, 26. 343, 5. 5808, .17661, 30. 676, 63. 506, 241. 231 
4363, 192,. 1075, 3. 54 9, 6. 3704,. 11 54 72, 155. 472, 110. 074, 337. 052 
06 1,1 72,. 06 74, 15. 2 13, 5. 3739,. 18341, 89. 06, 341. 21 0,1 53. 493 



1806,200, -I 744,1 5. 908, 5. 672 3, 
05 96, 217, .1522, 17. 288, 5. 5517, 

PR INT 
"PLANETARY DATA " 



17376, 107. 387, 338. 661, 151. 999 
18417,280.481,91 .777,159.192 



TABC 
TAB( 
TAB( 



1 0) "DIST. 
1 4)"IN"; 
1 4)"A.U.' 



FROM 
TAB( 



SUN"; TABC 
25)"THOUS.' 



2 5 )" D I A M . " ; TABC 
; TABC 35)"OF" 



TABC 25>"MILES"; TABC 33)"MOONS" 



DATA 
DATA 
DATA 
DATA 
DATA 
RETURN 
HOME : 
PR INT 
PRINT 
P R INT 
P R INT 
PR INT 
PR INT 
PRINT 
PR INT 
PR INT 
P R INT 
PRINT 
P R INT 
P R INT 
P R INT 
P R INT 
PR INT 
PR INT 
PR INT 
INPUT 
IF N = 
P = N 

ON N GOTO 2940,3050,3160,3280,3840,4180,4710,5030,5260,210 
REM SUB FOR MERCURY 
P$ = "MERCURY" 
GOSUB 7930 



33) "NUMBER" 



"1 ) 
"2) 
"3) 
"4) 
"5) 
"6> 
"7> 
"8) 
"9) 



MERCURY"; TABC 16)PD(1,1); TABC 26)PD{1,2); TABC 33)"N0NE' 
VENUS"; TAB( 16)PDC2,1); TABC 26>PDC2,2); TAB( 33)"N0NE" 
EARTH"; TAB( 14)PDC3,1); TABC 26)PDC3,2); TABC 33)"0NE" 
MARS"; TABC 14)PD(4,1); TABC 26)PD{4,2); TABC 33}"TW0" 



J UP ITER' 
SATURN" 
URANUS" 
NEPTUNE' 
P LUTO" ; 



; TABC 14)PDC5,1); TABC 25)PD{5,2); TABC 33)" 16" 

TABC 14)PDC6,1); TABC 25)PDC6,2); TABC 33)" 17" 

TABC 13)PD{7,1); TABC 25)PDC7,2); TABC 53)"F0UR" 

; TABC 13)PD(8,1); TABC 25)PD(8,2); TABC 33)"TW0" 

TABC 13)PDC9,1); TABC 26)PDC9,2); TABC 33)"0NE" 



PR INT 
'SELECT 1 
999 THEN 



THRU 9 
N = 1 



OR 999 FOR MENU ";N 



IF DS = 3 THEN HOME : PRINT "MERCURY 
IF DS = 4 THEN HOME : PRINT "MERCURY 
ON DS GOSUB 7220,7460,7730,210 
IF DS < > 5 GOTO 2960 
GOTO 210 
P R INT : P R INT 

INPUT "PRESS RETURN TO CONTINUE ";A$ 
GOTO 2960 

REM SUB FOR VENUS 
PS = "VENUS" 
GOSUB 7930 



HAS 
HAS 



NO 
NO 



SATELL ITE" : GOTO 3020 
RINGS": GOTO 3020 



IF DS = 3 THEN HOME : PRINT "VENUS 

IF DS = 4 THEN HOME : PRINT "VENUS 

ON DS GOSUB 7220,7460,7730,210 

IF DS < > 5 GOTO 3070 

GOTO 210 

PRINT : PRINT 

INPUT "PRESS RETURN 



HAS 
HAS 



NO SATELLITE" : GOTO 3130 
NO RINGS": GOTO 3130 



tr 



GOTO 3070 

REM SUB FOR EARTH 
PS ^ "EARTH" 
GOSUB 7930 
IF DS = 3 THEN SI ■■ 



TO CONT INUE " ;A$ 



"MOON": GOTO 3240 
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tir^T /„„„j.; „J\ 


rL T(L/i (LL/jitiMucu/ ~ 


3200 


IF DS = 4 THEN HOME : PRINT "EARTH HAS NO RINGS": GOTO 3260 


3210 


ON DS G0SU8 7220,7460,7730,210 


3220 


IF OS < > 5 GOTO 3180 


3230 


GOTO 210 


32^0 


F = 1 


3250 


GOTO 6030 


3260 


PRINT : INPUT "PRESS RETURN TO CONTINUE ";A$ 


3270 


GOTO 3180 


3280 


REM MARS DETAILS 


3290 


HOME : PRINT : PRINT : PRINT 


3300 


P$ = "MARS" 


3310 


GOSUB 7930 


3320 


IF DS = 3 THEN GOTO 3370 


3330 


IF DS ^ 4 THEN HOME : PRINT "MARS HAS NO RINGS": GOTO. 3490 


3340 


ON DS GOSUB 7220,7460,7730,210 


3350 


IF DS < > 5 GOTO 3310 


3360 


GOTO 210 


3370 


HOME : PR INT : P R INT 


3380 


PRINT "SATELLITES OF MARS ARE" 


3390 


PRINT 


3AD0 


PRINT "1 ) DEIMOS" 


3410 


P R INT 


3420 


PRINT "2) PHOBOS" 


3430 


PRINT 


3440 


INPUT "SELECT 1 OR 2 " ;Q 


3450 


IF Q = 1 THEN S$ = "DEIMOS" 


3460 


IF Q = 2 THEN S$ = "PHOBOS" 


3470 


f = 1 


3480 


GOTO 7020 


3490 


PRINT : INPUT "PRESS RETURN TO CONTINUE ";A$ 


3500 


GOTO 3310 


3510 


REM SUB FOR ASTEROIDS 


3520 


HOME : PRINT : PRINT 


3530 


PRINT "ASTEROIDS LARGER THAN" 


3540 


PRINT TABC 11>"155 Ml (250 KM) DIAM-" 


3550 


PD TMT " .«w«<-«_«__«->_-«-_-_---. *' 


rKJINI ^ — w — ——— — — — — — — — -.-_- — — — — 


3560 


PRINT TABC 5)"NAME"; TAB( 20)"DIAM. MILES KMS. 


3570 


P R INT 


3580 


PRINT "1) CERES"; TABC 21)DAC1,2); TABC 32)"1003" 


3590 


PRINT "2> OAVIDA"; TABC 21)DAC9,2); TABC 33)"323" 


3600 


PRINT "3) CYBELE"; TABC 21)DAC7,2); TABC 33)"309" 


3610 


PRINT "4) EUPHROSYNE"; TABC 21)DAC6,2); TAB< 33)"370" 


3620 


PRINT "5> HYGIEA"; TABC 21)DA(4,2); TABC 33)"450" 


3630 


PRINT "6) INTERAMNIA"; TABC 21)DAC10,2); TABC 33)"350" 


3640 


PRINT "7) PALLAS"; TAB( 213DAC2,2); TABC 33>"608" 


3650 


PRINT "8) PATENTIA"; TABC 21)0AC8,2); TABC 33)"276" 


3660 


PRINT "9) PSYCHE"; TABC 21)DA(5,2); TABC 33) "250" 


3670 


PRINT "10) VESTA"; TABC 21)DAC3,2); TABC 33)"538" 


3680 


PRINT /■ 


3690 
3700 


PD TMT •' " 


rr^lliJI """" ~ J 

INPUT "SELECT 1 THRU 10 OR 999 FOR MENU ";N 


3710 


IFN=1THENASJ:^" CERES ":AA = 1 


3720 


IF N = 2 THEN ASS = "DAVIOA":AA =9 - . 


3730 


IF N - 3 THEN AS$ = "CYBELE" :AA = 7 


3740 


IF N ^ 4 THEN ASS ^ " E UP H R OS YN E " : A A =6 
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3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3 850 

3860 

3870 

3880 

3890 

3900 

391 

3920 

3930 

3 940 

3950 

3960 

3970 

3980 

3990 

AOOO 

4010 

4020 



4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

41 50 

4160 

4170 

4180 

41 90 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 



1 F 
IF 
IF 
IF 
IF 
I F 
IF 



5 

6 
7 
8 
9 
10 



THEN 


ASS = 


"HY6IEA":AA = 


THEN 


ASS = 


"INTERAMNIA" : 


THEN 


ASS = 


"PALLAS":AA = 


THEN 


ASS = 


"PATENTIA":AA 


THEN 


ASS = 


"PSYCHE":AA = 


THE^ 


ASS = 


"VESTA":AA = 



THEN GOTO 210 



= 999 
GOSUB 5390 
GOTO 3510 

REM SUB FOR JUP ITER 
PS = "JUP ITER" 
GOSUB 7930 

IF DS = 3 THEN GOTO 3920 
IF DS - 4 THEN F = 1 : GOTO 710 
ON DS GOSUB 7220,7460,7730.210 
IF DS < > 5 GOTO 3860 
GOTO 210 



4 

AA 

2 

5 
3 



10 



HOME : 
PRINT " 
PRINT 
PRINT " 
PRIM " 
PRINT " 
PRINT ■' 
PRINT " 
PRINT " 
P R INT 
PRINT " 
: PRINT 
INPUT " 
IF Q = 

Q 

Q 

Q 

Q 

Q 

Q 

Q 

Q 

Q 

Q 

Q 

1 



PRINT : PRINT : PRINT 
SATELLITES OF JUPITER ARE" 

1 ) J V" : PRINT "2) 10" 

3) EUROPA": PRINT "4) GANYMEDE' 

5) CALLISTO": PRINT "6> JVI" 

7) JVII": PRINT "8) J X" 

9) J XII": PRINT "10) J XI" 

11) JVIII": PRINT "12) JIX" 



JUPITER ALSO HAS SEVERAL VERY SMALL": PRINT "SATELLITES" 



I F 

IF 

IF 

IF 

IF 

IF 

IF 

I F 

IF 

I F 

IF 
F = 
GOTO 
REM 
P $ - 
GOSUB 
IF OS 
IF DS 
ON DS 
IF DS 
GOTO 
HOME 



SELECT 
1 THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



1 THRU 12 ";Q 



THEN 
THEN 



S$ 
S$ = 
8$ = 
SS = 
S$ = 
SS = 
S$ = 
SS = 
S$ = 
SS = 
SS = 
SS = 



J V" 
"10" 

"EUROPA" 
"GANYME£>E' 
"CALLISTO' 
"JVI" 
"J VII" 
"JX" 
"JXII" 

"J XI" 

"J VII I" 

"J I X" 



900 



PR INT 
PR INT 



6360 

SUB FOR SATURN 
■SATURN" 

7930 

= 4 THEN F ^ 1 

= 3 THEN GOTO 

GOSUB 7220,7460,7730,210 

< > 5 GOTO 4200 
210 

: PRINT 

"SATELLITES OF SATURN" 



GOTO 
4260 



tf 
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MDT fcon 


i ■ i\ 






rLr 


iinueoj 






4290 


PRINT ' 


1 ) 1 980S28 


A RING SHEPHERD" 




4300 


PRINT ' 


2) 1980S27 


F RING SHEPHERD" 




4510 


PRINT ' 


3) 1980S26 


F RING SHEPHERD" 




4320 


PRINT ■ 


4) 1980S3 


TRAILING COORBITAL" 




4350 


PRINT ' 


5) 1980S1 


LEADING COORBITAL" 




4340 


PRINT ' 


6) MIMAS" 






4350 


PRINT ' 


7) MIMAS FOLLOWER" 




4360 


PRINT • 


8) ENCELADUS 






4370 


PRINT ' 


9) TETHYS" 






4380 


PRINT ' 


10) 1980S13" 






4390 


PRINT ' 


11) 1980S 25" 






4400 


PRINT ' 


12) DIONE" 






4410 


PR INT ' 


13) 1980S6" 






4420 


PRINT ' 


14) RHEA" 






4430 


PRINT ' 


15) TITAN" 






4440 


PRINT ' 


16) HYPERION 






4450 


PRINT ' 


17) lAPETUS" 






4460 


PRINT ' 


18) PHOEBE" 






4470 


PRINT ' 


SEVERAL OTHER SMALL SATELLITES 


HAVE" 


4480 


PRINT ' 


BEEN DISCOVERED" 




4490 


PRINT ■ 




** "* "^ ■" "* ~ " 


,'• 






4500 


INPUT ' 


SELECT 1 THRU 18 ";Q 




4510 


IF Q = 


1 THEN S$ = 


"1980S28" 




4520 


IF Q = 


2 THEN S$ = 


"1980S27" 




4530 


IF Q = 


3 THEN 8$ = 


"1 980S26" 




4540 


IF Q = 


4 THEN S$ = 


"1 980S3" 




4550 


I F Q = 


5 THEN SS = 


"1 980S1" 




4560 


IF Q = 


6 THEN S$ = 


"MIMAS" 




4570 


IF Q = 


7 THEN S$ = 


"MIMAS FOLLOWER" 




4580 


IF Q = 


8 THEN S$ = 


"ENCELADUS" 




4590 


I F Q = 


9 THEN S$ = 


"TETHYS" 




4600 


I F Q = 


1 THEN S$ = 


"1980S13" 




4610 


IF Q = 


11 THEN S$ = 


"1980S25" 




4630 


IF Q = 


13 THEN S$ = 


"1980S6" 




4640 


IF Q = 


1 4 THEN S$ = 


"RHEA" 




4650 


IF Q = 


15 THEN S$ = 


"TITAN" 




4660 


IF Q = 


16 THEN SS = 


"HYPERION" 




4670 


IF Q = 


1 7 THEN S$ = 


"IAPETUS" 




4680 


IF Q = 


1 8 THEN S$ = 


"PHOEBE" 




4690 


F = 1 








4700 


GOTO 6 


510 






4710 


REM S 


JB FOR URANUS 






4720 


P$ = "UF 


ANUS" 






4730 


GOSUB ' 


?930 




/^i 


4740 


IF DS ^ 


- 3 THEN GOTO 4790 


4t. 


4750 


IF DS 


= 4 THEN F = 


1: GOTO 1130 




4760 


ON DS 


30SUB 7220,7460,7730,210 


4770 


IF DS 


< > 5 THEN 


GOTO 4730 


4780 


GOTO 2 







Vl 


4790 


HOME : 


PRINT : PRINT 


.! 


4800 
4810 


PRINT 
P R INT 


•SATELLITES OF URANUS" 


„ 








4820 


PRINT 








4830 


PRINT 


•1) MIRANDA" 






4840 


PRINT 
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4850 

4g60 

4S70 

4880 

4890 

4900 

491 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

51 80 

51 90 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5 2 70 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5 3 50 

5360 

5370 

5380 

5390 



P R INT 
PR INT 
PRINT 
PR IfJT 
PRINT 
PR INT 
PRINT 
PR INT 
P R INT 
PRINT 
INPUT 
IF Q = 



'2) ARIEL" 



3) UMBRIEL' 



'4) TITANIA" 



'5) OB E RON' 



SELECT 

1 THEN 

2 THEN 

3 THEN 

4 THEN 

5 THEN 



1 THRU 



;Q 



IF 
I F 
I F 
IF 
F = 
GOTO 6690 
REM SUB FOR 
PS = "NEPTUNE 
GOSUB 7930 



S$ 

S$ 

s$ 
s$ 

SI 



"MIRANDA" 

"ARIEL" 

"UMBRIEL" 

"TITANIA" 

"OBERON" 



NEPTUNE 



IF 
I F 
ON 
IF 



GOTO 
HOME 
PR INT 
P R INT 
PR INT 
PR INT 
PRINT 
PR INT 
P R INT 
PR INT 
PRINT 
INPUT 
I F Q : 
IF Q ■■ 
F = A 
GOTO 
REM 



= 3 THEN GOTO 5110 
= 4 THEN F = 1 : GOTO 1320 
GOSUB 7220,7460,7730,210 
< > 5 THEN GOTO 5050 

210 

: PRINT : PRINT : PRINT 
"SATELLITES OF NEPTUNE" 



'1> TRITON' 



"2) NEREID' 



'SELECT 

1 THEN 

2 THEN 



1 OR 
S$ = 
SJ = 



2 ";Q 

"TRITON" 

"NEREID" 



6850 
SUB FOR 



PS = "PLUTO 
GOSUB 7930 
IF DS 
IF OS 
ON DS 
IF DS 
GOTO 



PLUTO 



= 3 
= 4 



THEN5340 > '4 

THEN GOTO 53 50 < 
GOSUB 7220, 7460, 7730, 210' 
< > 5 THEN GOTO 5280 
21 



F - 1:SS = "CHARON": GOTO 6190 
HOME : PRINT : PRINT 

PRINT "PLUTO DOES NOT HAVE RINGS" 
PRINT : INPUT "PRESS 
GOTO 5280 
REM SUB FOR ASTEROID 



RETURN TO CONTINUE ":A$ 



DETAILS 
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PINDJ (continued) 



5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5 62 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5S00 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
591 
5920 
5930 
5940 



HOME : 
P R INT 
P R INT 
P RINT 
PRINT 
PRINT 
P R INT 
PR INT 
PR INT 
PR INT 
PR INT 
P R INT 
PRINT 
P R INT 
PRINT 
P R INT 
PRINT 
INPUT 
RETURN 

REM S 
N - 
HOME : 
PR INT 
P R INT 
PRINT 
PR INT 
PR INT 
P R INT 
P R INT 
PRINT 
PR INT 
PR INT 
PR INT 
P R INT 
PRINT 
PR INT 
P R INT 
PR INT 
NPUT 



PRINT : PRINT 
'DETAILS OF ASTEROID ";AS$ 



'MEAN DISTANCE FROM SUN"; TABC 25)DA(AA,1) 
TAB( 10)"(A.U.)" 

'DIAMETER (MILES)"; TABC 25)DACAA,2) 
'ECCENTRICITY"; TABC 25)DACAA,3) 
'ORBIT INCLINATION (DE6.)"; TABC 25)DACAA,4) 
'PERIOD (YEARS)"; TABC 25)DACAA,5) 
'DAILY MOTION CDEG.)"; TABC 25)DACAA,6> 
'LONG. ASCENDING NODE CDEG.)"; TABC 25)DACAA,7) 
'LONG. OF PERIHELION CDEG.)"; TABC 25)DACAA,8) 
'MEAN ANOMALY CDEG.)"; TABC 25)DACAA,9) 
' CEPOCH 1 982, AUG 19)" 



"PRESS RETURN TO CONTINUE ";A$ 
ATELLITES 

PRINT : PRINT 
"SATELLITES OF SOLAR SYSTEM" 

"1) ARIEL"; TABC 20) "12) MIMAS" 
"2) CALLISTO"; TABC 20)"13) MIRANDA' 
"3) CHARON"; TABC 20)"14) MOON" 
"4) DEIMOS"; TABC 20)"15) NEREID" 
"5) DIONE"; TABC 20)"16) OBERON" 
"63 ENCELADUS"; TAB( 20)"17) PHOBOS' 
"7) EUROPA"; TABC 20)"18) PHOEBE" 
"8) GANYMEDE"; TABC 20) "19) RHEA" 
"9) HYPERION"; TABC 20)"20> TETHYS" 
"10) lAPETUS"; TABC 2D>"21) TITAN" 
"11) 10"; TABC 20)"22) TITANIA" 
"23) TRITON"; TABC 20)"24) UMBRIEL" 



'SELECT 
999 TH 
1 THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THE 



9 
1 

1 1 
12 
1 3 
1 4 
1 5 



THE 
THE 

THE 
THE 

THE 



1 TH 

EN G 

S$ = 

S$ ^ 

s$ = 
s$ = 
s$ ^ 

S3 = 
S$ = 

s$ = 
s$ = 

N S$ 

N S$ 

N S$ 

N S$ 

N S$ 

N S$ 



24 OR 

210 
RIEL" :Q = 2 
ALLISTO" :Q 
HARON" : GOT 
EIMOS" :Q = 
lONE" :Q - 1 
NC ELADUS" : Q 
UROP A" :Q ^ 
ANYMEDE" :Q 
YPERION" : Q 
IAPETUS" : Q 
IO":Q = 2: 
MIMAS" :Q = 
MIRANDA" :Q 
MOON " : GOT 
NEREID" : Q = 



999 FOR MENU ";N 



: GOTO 6690 

= 5: GOTO 6360 

6190 

2: GOTO 7020 ^, 

2: GOTO 6510 'i 

= 8: GOTO 6510 
3: GOTO 6360 
= 4: GOTO 6360 
= 16: GOTO 651 
= 17: GOTO 6510 
GOTO 6360 
6: GOTO 6510 
= 1 : GOTO 6690 
6030 

2: GOTO 6850 
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— PLNDT (continued)- 



5950 IF N = 16 THEN S$ ^ "OBERON":Q = 5: GOTO 6690 

5960 IF N ^ 17 THEN S$ = "PH0BOS":Q = 1: GOTO 7020 

5970 IF N = 18 THEN S$ ^ "PHOEBE":Q = 18: GOTO 6510 

5980 IF N = 19 THEN S$ = "RHEA":Q = 14: GOTO 6510 

5990 IF N = 20 THEN S$ = "TETHYS":GI = 9: GOTO 6510 

6000 IF N ^ 21 THEN S$ = "TITAN":Q = 15: GOTO 6510 

6010 IF N = 22 THEN S$ = ■'TITANIA":Q = 4: GOTO 6690 

6020 IF N = 23 THEN S$ = "TRITON" :Q = 1: GOTO 6850 

6030 HOME : PRINT : PRINT 

6040 PRINT S$;" IS SATELLITE OF EARTH" 

6050 PRINT " " 

6060 PRINT 

6070 PRINT "MEAN DISTANCE (1000 Ml)"; TAB( 30)"238.853" 

6080 PRINT "DIAMETER (MILES)"; TABC 30) "2160" 

6090 PRINT "MASS (M00N=1)"; TABC 30)"1" 

6100 PRINT "SIDEREAL PERIOD CDAYS)"; TABC 30 ) "2 7 . 32 1 661 ' 

6110 PRINT "ECCENTRICITY"; TABC 30)". 0549" 

6120 PRINT "INCLINATION CDEG.)"; TABC 30>"18.28 TO" 

6130 PRINT TABC 30) "28. 58" 

6140 PR INT 

6150 PRINT " ■■ 

6160 INPUT "PRESS RETURN TO CONTINUE ";AS 

6170 IF F = 1 THEN GOTO 3160 

61 80 GOTO 5590 

61 90 HOME : PRINT : PR INT 

6200 PRINT S$;" IS A SATELLITE OF PLUTO" 

6210 PRINT 

6220 PR INT " " 

6230 PRINT 

6240 PRINT "MEAN DISTANCE C1000 MI)"; TABC 30)"10.563" 

6250 PRINT "DIAMETER (MILES)"; TABC 30)"745" 

6260 PRINT "SIDEREAL PERIOD (DAYS)"; TABC 30)"6.39" 

6270 PRINT 

6280 PRINT "FURTHER DETAILS OF CHARON ARE NOT" 

6290 PRINT" YETAVAILABLE" 

6300 PRINT 

6310 PRINT " " 

6320 PRINT 

6330 INPUT "PRESS RETURN TO CONTINUE ";A$ 

6340 IF F = 1 THEN F = 0: GOTO 5260 

6350 GOTO 5590 

6360 HOME ; PRINT : PRINT 

6370 PRINT S$;" IS A SATELLITE OF JUPITER" 

6 3 8 P R I N T 

6390 PRINT " '- " 

6400 PRINT "MEAN DISTANCE (1000 MI)"; TABC 30)JDCQ,1) 

6410 PRINT "DIAMETER CMILES)"; TABC 30)JD(Q,6) 

6420 PRINT "MASS (M00N=1)"; TABC 30)JDCQ,5) 

6430 PRINT "SID. PERIOD CDAYS)"; TABC 30)JDCQ,4) 

6440 PRINT "ECCENTRICITY"; T AB C 3 ) J D CQ , 2 ) 

6450 PRINT "INCLINATION CDEG.)" TABC 30)JDCQ,3) 

6460 PRINT " " 

6470 PRINT 

6480 INPUT "PRESS RETURN TO CONTINUE ";A$ 

6490 IF F = 1 THEN GOTO 3860 
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PlNDl (continued)- 



6500 


GOTO 


6510 


HOME 


6520 


PRINT 


6530 


PR INT 


6540 


PRINT 


6550 


PRINT 


6560 


PRINT 


6570 


PRINT 


6580 


PRINT 


6590 


PRINT 


6600 


PRINT 


6610 


PR INT 


6620 


PRINT 


6630 


PR INT 


6640 


PRINT 


6650 


PRINT 


6660 


INPUT 


6670 


IF F 


6680 


GOTO 


6690 


HOME 


6700 


PRINT 


6710 


PRINT 


6720 


PRINT 


6730 


PRINT 


6740 


PRINT 


6750 


PR INT 


6760 


PRINT 


6770 


PRINT 


6780 


PRINT 


6790 


PR INT 


6800 


PRINT 


6810 


P R INT 


6820 


INPUT 


6830 


IF F 


6840 


GOTO 


6850 


HOME 


6860 


PR INT 


6870 


PRINT 


6880 


PRINT 


6890 


PRINT 


6900 


PR INT 


6910 


PRINT 


6920 


PRINT 


6930 


PRINT 


6940 


PRINT 


6950 


PRINT 


6960 


P R INT 


6970 


PRINT 


6980 


PR INT 


6990 


INPUT 


7000 


IF F 


7010 


GOTO 


7020 


HOME 


7030 


PR INT 


7040 


P RINT 




"PRESS RETURN TO CONTINUE '. 
= 1 THEN COTO 4180 
5590 
: PR INT : P RINT 

S$;" IS A SATELLITE OF URANUS" 



"MEAN DISTANCE (1000 MI>"; TABC 30)UD{Q,1) 
"DIAMETER (MILES)"; TAB< 30)UO(G|,6) 
"MASS (M0ON=1)"; TAB( 30)UD(Q,5) 
"SIDEREAL PERIOD (DAYS)"; TABC 30)UDCQ,4) 
"ECCENTRICITY"; TABC 30)UDCQ,2) 
"INCLINATION (DE6.)"; TABC 30)UDCQ,3) 



"PRESS RETURN TO CONTINUE ";A$ 
= 1 THEN F = 0: GOTO 4200 
5590 
: P R INT : PR INT 

S$:" IS A SATELLITE OF NEPTUNE" 



'MEAN DISTANCE (1000 MI)"; TABC 30)ND(Q,1) 
'DIAMETER (MILES)"; TABC 30)ND(Q,6) 
'MASS (M00N=1)"; TABC 30)ND(Q,5) 
'SIDEREAL PERIOD (DAYS)"; TABC 30)N0(G|,4) 
'ECCENTRICITY"; TABC 30)ND(Q,2) 
'INCLINATION (DEG.)"; TABC 30)ND(Q,3) » 



"PRESS RETURN TO CONTINUE ";AI 
^ 4 THEN GOTO 5030 
5590 
: PR INT : PR INT 

S$;" IS A SATELLITE OF MARS" 
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PINDT (continued) 



7050 PRINT " " 

7060 PRINT 

7070 PRINT "MEAN DISTANCE (1000 MI)"; TAB( 30)MD(Q,1) 

7080 PRINT "DIAMETER (MILES)"; TAB( 30)MD{Q,6) 

7090 PRINT "MASS CM00N=1)"; TABC 30)MD{Q,5) 

7100 PRINT "SIDEREAL PERIOD (DAYS)"; TABC 30)MD(Q,4) 

7110 PRINT "ECCENTRICITY"; TABC 30)MD(Q,2) 

7120 PRINT "INCLINATION (DEC.)"; TABC 30)MD(Q,3) 

7130 PRINT 

7140 PRINT " " 

7150 PRINT 

7160 INPUT "PRESS RETURN TO CONTINUE ";A$ 

7170 IF F = 1 THEN F = 0: GOTO 3310 

7180 IF F = 2 THEN F = 0: GOTO 3860 

7190 IF F = 3 THEN F = 0: GOTO 4730 

7200 IF F = 4 THEN F = 0: GOTO 5050 

7210 RETURN 

7220 REM SUB TO DISPLAY ORBIT DETAILS 

7230 HOME : PRINT : PRINT : PRINT 

7240 PRINT "ORBITAL DETAILS FOR " ;P $ 

7250 PRINT 

7260 PRINT " " 

7270 PRINT 

7280 PRINT "MEAN DISTANCE FROM SUN CA.U.)"; 

7290 PRINT TABC 33)PDfP,1) 

7300 PRINT 

7310 PRINT "ECCENTRICITY"; TABC 33)PDCP,10) 

7320 PRINT 

7330 PRINT "INCLINATION (DEGREES)"; TABC 33)PD(P,11) 

7340 PRINT 

7350 PRINT "SIDEREAL PERIOD (YEARS)"; TABC 33>PDCP,12) 

7 360 PRINT 

7370 PRINT "LONG. ASCENDING NODE CDEG.)"; TABC 32)PD(P,13) 

7380 PRINT 

7390 PRINT "LONG. OF PERIHELION (DE6.)"; TAB( 32)PD(P,14): PRINT 

7400 PRINT "MEAN MOTION CDEG. /DAY)"; TA8( 33)PDCP,15): PRINT 

7410 PRINT "MEAN ANOMALY (DEG.)"; TABC 32)PDCP,16): PRINT TABC 5) 

"(EPOCH 1 980,1 ,1 )" 

7420 PRINT 

7430 PRINT " " 

7440 INPUT "PRESS RETURN TO CONTINUE ";A$ 

7450 RETURN 

7460 REM sua FOR PLANET DETAILS 

7470 HOME : PR INT : PR INT 

7480 PRINT "PHYSICAL DETAILS OF ";P$ 

7490 PRINT 

7500 PRINT " ■ -" 

7510PRINT 

7520 PRINT "EQUATORIAL D I AM , C M I LE S ) " ; TABC 33)PD{P,2) 

7530 P R INT 

7540 PRINT "POLAR D I AM . C M IL E S ) " ; TABC 33)PDCP,3) 

7550 P R INT 

7560 PRINT "MASS (EARTH^I)"; TABC 33)PD{P,4) 

7570 PRINT 

7580 PRINT "DENSITY"; TABC 33)PDCP,5) 
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PI p 


MDT fcor 






rLr 






7590 


PR INT 






7600 


IF P$ 


= "MERCURY" OR Pf - "VENUS" THEN GOTO 7620 




7610 


PR INT 


'ROTATION PERIOD (HOURS)"; TABC 33)PD(P,8): GOTO 7630 




7620 


PRINT 


'ROTATION PERIOD (DAYS)"; TABC 33)PD(P,8) 




7630 


PRINT 






7640 


PRINT 


'AXIS INCLINATION (DEC.)"; TABC 33)PD{P,9) 




7650 


PRINT 






7660 


PRINT 


'SURFACE GRAVITY (G'S)"; TABC 53)PDCP,7) 




7670 


PRINT 






7680 


PR INT 


'ALBEDO"; TABC 33)PD(P,6) 


\ 


7690 


PRINT 






7700 
7710 


PRINT 
INPUT 


p __««__»** " 




'PRESS RETURN TO CONTINUE ";A$ 




7720 


RETURN 






7730 


HOME : 


PRINT : PRINT : PRINT 




7740 


PRINT 


'ASTRONOMICAL CONSTANTS" 




7750 


PRINT 
P R INT 


f p^™_««««^ M 




7760 






7770 


PRINT 


•ASTRONOMICAL UNIT"; TABC 25)"149.6 MILL. KM" 




7780 


PRINT 


TABC 8}"CA.U.)"; TABC 26)"92.953 MILL. MI" 




7790 


PRINT 






7800 


PRINT 


'VELOCITY OF LIGHT"; TABC 2 5 > "2 99792 . 5 K M / S E C " 




7810 


PRINT 


TABC 25)"186635.4 MI/SEC" 




7820 


PRINT 






7830 


PRINT 


'EARTH EQUATORIAL RADIUS"; TABC 25)"6378.16 KM" 




7840 


P R INT 


TABC 25)"3963.3 MILES" 




7850 


PRINT 






7860 


P RINT 


'MASS EARTH/MASS MOON"; TABC 25)"81.3" 




7870 


PRINT 






7880 


PRINT 


'MASS SUN/MASS EARTH"; TABC 25)"332958" 




7890 


PRINT 






7900 
7910 


PRINT 
INPUT 


1 p, 




'PRESS RETURN TO CONTINUE ";A$ 




7920 


GOTO 210 




7930 


REM SUB FOR DETAIL SELECTION 




7940 


HOME : 


PRINT : PRINT : PRINT 




7950 


DS = 






7960 


PRINT 


•SELECT " 




7970 


PRINT 


; PRINT 




7980 


PRINT 


TABC 6)"1) ORBITAL DETAILS" 




7990 


PRINT 






8000 


PRINT 


TABC 6>"2) PHYSICAL DETAILS" 




8010 


PRINT 


TABC 12) "OF PLANET" 




8020 


PR INT 






8030 


PRINT 


TABC 6)"3) SATELLITES" /'f 
: PRINT TABC 6)"4) RINGS^' -^ f i 
: PRINT TABC 6) "9 99) RETURN TO MENU" .J if 
: P R I N T \- i * 
•SELECT 1 THRU 4 OR 999 ";DS • {f 
= 999 THEN DS = 5 




8040 


PRINT 




8050 


PRINT 




8060 


PRINT 




8070 


INPUT 




8080 


IF DS 




8090 


RETURN 


? 




8100 


HOME 






S110 


END 











photo Credit: NASA/Ames 

While amateurs are notable to obtain pictures of the planets equal to this series of Venus 
taken by the Pioneer Orb iter, with suitable telescope/camera combiriations and a 
iudicious choice of film and exposure, good planetary pictures can be obtained. This 
program helps by providing rapid calculations for different lens combinations, ex- 
posures, and film types. These four images of Venus show variation of the illumination 
of (he disk, as seen in ultraviolet light, from 25 December 1978 to 24 March 1979. The 
features shown are typical of the ultraviolet markings of the planet's clouds revealed by 
spacecraft photography; in normal light the clouds seem bland and uninteresting. 
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Photographing the Planets 

nr.f r!"/ h"'"IT'' '^'^^^°P'^ photographs of the planets has always 
b~l: ?''■ '° 'TT""' -*-"°^-^- Photography is difficult 

len^h offhPtti ' '' 7" °^ '^' ""^r"' '^ ^° ^^^"- L°"§ -ffe^t've focal 
lengthsofthetelescope/cameracombinationarGrequlredtoproduceimases 
on the photographic film that are large enough to show any det riu 
ong effective focal lengths mean long exposures, and then tremor of the 
telescope or atmospheric turbulence spoil the image detail 

Three common methods of planetary photography are:* '■ -^ • 

1. Placing the photographic film at the prime focus of the 
telescope's objective . . 

2. Attaching a camera (with lens) to the eyepiece of the telescope 

3. Attaching a camera (without lens) to the eyepiece of the telescope 
(projectfon photography) 

tor each of these three methods of photography. You have to inmt the 
d,a,.eter(in inches) ofthe telescope's objective Wear aperture) thefocal 
eng.h,n inches) of the objective, thefocal length (in mm) of theeyepiec 
used,thefocallength(,nmm)ofthecameraiensused,andthedistance(in 

nlneta V hH ^™ "'" 1^ '^' photograph. You can determine 
olanetary diameters in arc seconds from distance data. You must divide 
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the diameter at unit distance of one astronomical unit by the distance of 
the planet in astronomical units {given by Program 11). Diameters of the 
planets at unit distance are: Mercury, 6.68; Venus, 16.82; Mars, 9.36; 
Jupiter, 190; Saturn, 158; Uranus, 68; and Neptune, 73. Pluto is too small 
to be of significance. In addition, you must select an appropriate film and 
provide the ASA rating. 

The basic equations used in the calculations are as follows: 

Method 1 EFL = FLO 

Method 2 EFL = FLO X FC/FE 
Method 3 EFL = FLO X DE/FE 

EFL is the effective focal length of the system, FLO is the focal length of the 
telescope objective, FE is the focal length of the eyepiece, EC is the focal 
length of the camera lens, and DE is the distance from the eyepiece to the 
film plane. The effective f/number {EFN) is the effective focal length di- 
vided by the clear aperture of the telescope's objective. The exposure is 
computed from the equation: 

EX = {EFN)y{ASA X N) 

where ASA is the film speed and N is a number to compensate for the 
albedo (reflecting power) of each planet (see instruction lines 1010 
through 1070). 

The program provides a guide to the exposure you will need, the 
resolution to be expected, and the size of the image on the film plane. 
With this information you can effectively plan a photographic session in 
advanceand thus avoid manydisappointments. Atypical display isshown 
in Figure 23.1. 

The listing for the PHOTO program follows. 



(h 



*'* 
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JMsA^'^'^^'^'" JUPITER OH FILM RATED AT 
WITH CAMERA/EYEPIECE COMBINATION 
THE EXPOSURE IS ABOUT .69 SEC 



IS HOT RECOMMENDED > 
?"? SSSA^g^^M^^E^"^ '^^'-" PLANE MILL BE 

*MLD^E"8BiEg"3^H^ ^^LgE-^bg^^UL, 
HAHT ANOTHER CALCULATION? Y/N ■ 



Jo help you obtain better planetary photographs. PHOTO develops displays such as this for 
three types of camera/telescope arrangements. 



Figure 23.1 






(y 
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PHOTO 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 

120 

130 

UO 

1 50 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

5 00 

510 

520 

530 



R INT : 

RINT 

RINT 

R INT 

RINT ; 

R INT 

R INT 

PR INT 

PR INT 

PR INT 

PR INT 

PR INT 
INPUT 
IF A$ 
IF A$ 
HOME 

PR INT 
PR INT 
PR INT 
PR INT 
PRINT 
PR INT 
PR INT 
PRINT 
PR INT 
PR INT 
PRINT 
INPUT 
HOME : 
PRINT ' 
PRINT ; 
PRINT ' 
PRINT • 
PR INT 
PRINT • 
PRINT ' 
PR INT ' 
P R INT 
PRINT ' 
PR INT ' 
PR INT ' 
PR INT 
INPUT 
HOME : 
PRINT 
PR INT 
INPUT 

AO - AO 

PR INT 

INPUT 

FO = FO 



PLANETS 
: PRINT 



PHOTO 



PRINT 



I' 



EM PHOTO GUIDE FOR 
OWE : PRINT : PRINT 
PR INT 

TABC 9)" 

TAB( 9)"I 

TABC 9)" " 

PR INT 
TAB( 7)"AN ASTRONOMY PROGRAM" 

PRINT TABC 6)"BY ERIC BURGESS 
: PRINT 

ALL RIGHTS RESERVED BY 
S S T SOFTWARE SERVICE 



F . R. A. S. 



TABC 6>' 

TAB C 6 >' 
: PR INT 
: PRINT 

"WANT INSTRUCTIONS? Y/N ";A$ 
= "N" THEN GOTO 310 
< > "Y" THEN PRINT "INVALID RESPONSE"; PRINT 

PR INT 

: PRINT : PRINT 

"THIS PROGRAM ASKS FOR PARTICULARS OF" 
"YOUR ASTROPHOTO INSTALLATION AND THEN" 
"COMPUTES THE SIZE OF THE IMAGE OF ANY" 
"SELECTED PLANET ON THE FILM PLANE" 
: PRINT : PRINT 

"FOR AN ASA RATING WHICH YOU INPUT" 
"IT CALCULATES AN AVERAGE EXPOSURE" 
"FOR THE PLANET AND THE INSTRUMENT" 
"CONFIGURATION YOU ARE USING." 
: PRINT : PRINT 
"PRESS RETURN TO CONTINUE " ; A $ 

PR INT : PR INT 
"WHICH METHOD ARE YOU USING?" 

: PRINT 

" 1) FILM AT PRIME FOCUS OF" '■' , 
TELESCOPE'S OBJECTIVE" 

" 2) FILM IN CAMERA AND CAMERA" 
AT EYEPIECE OF TELESCOPE" 
WITHCAMERALENSINUSE" 



GOTO 150 



3) IMAGE PROJECTED FROM EYEPIECE' 
OF TELESCOPE INTO CAMERA" 
WITHOUT A CAMERA LENS" 
PR INT 
SELECT 1, 2, OR 3 ";A 
PR INT : PR INT 
'GIVE FOLLOWING DATA " 



r. 



'if 

\ 



h 



u 



'CLEAR APERTURE 
* 30.4 



OF OBJECTIVE CIN) ";A0 



FOCAL LENGTH 
* 30. 4 



OF OBJECTIVE CIN) 



FO 
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PHOTO (continued) ■ 



540 NF = FO 
550 IF A < 
PRINT 



560 

570 

580 

5 90 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 



/ AO 
> 2 



THEN GOTO 580 



INPUT "FOCAL LENGTH OF CAMERA LENS CMH) "-FC 
IF A = 1 THEN GOTO 670 



PRINT 
INPUT ' 
IF A = 
IF A = 
PRINT 



FOCAL LENGTH OF EYEPIECE 

1 THEN GOTO 670 

2 THEN GOTO 670 



(MM) 



^INPUT "DISTANCE EYEPIECE TO FILM PLANE 



FE 



(IN) ";I>E 



REM CALC. EFFECTIVE F NUMBER 
IF A = 1 THEN EFL = NF 
IF A = 2 THEN EFL = NF 



FC / FE 
OE/FE 



GOTO 700 



IF A = 3 THEN EFL = NF 

HOME : PRINT : PRINT 

PRINT "YOU MUST NOW ENTER THE NAME OF" 
■'THE PLANET YOU ARE PHOTOGRAPHING 
'AND ITS DIAMETER IN ARCSECS" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



CYOU CAN FIND THIS FROM ONE OF THE" 
PROGRAMS IN THIS SERIES)" 
PRINT • 

INPUT "WHAT IS PLANET'S NAME ";PL$ 

IF PL$ =g^PLUTO" THEN PRINT "NO DATA ON PLUTO; PICK ANOTHER PLANET 



800 

310 

820 

830 

840 DP 

850 DP 

860 

870 

880 

890 



: GOTO 
PRINT 

INPUT "WHAT IS 
F = EFL * AO 
HOME : PRINT : 
DP / 3600 
TAN (DP / 



DIAMETER IN ARCSECS ";Dp 

PRINT : PRINT 
57.29578) 



I = F * DP 
R = 1450 / EFL 

R = VAL ( LEFTS C STR$ CR),4)) 
PRINT : PRINT 



900 

910 

920 

930 

940 

950 

960 

9 70 

980 

990 

1000 

1010 

102 

1030 

1040 

1050 

1060 

1070 



PRINT "RESOLUTION FOR ";PL$-" AT" 

print' 7Jrint'''' ""■'■ '' "' ''' ''''" ^IN^5^»"" 

PRINT "YOU ARE ADVISED TO PICK A FILM WITH" 
print 'AT LEAST THREE TIMES THIS RESOLUTION" 
R = VAL C LEFTS C STRS (R * 3>,4)) 

PrJn! "rHrMMr"^'-' "' ''*'' ^R^'" LINES/MM TO AVOID' 
PRINT GRAIN SPOILING THE IMAGE' 

PRINT : PRINT : PRINT 



print : print : print ^ -'' 

'home '.'"JrInt'/pSiSt""' "' """ """' "'*"' 



(' 



IF PLS = "MERCURY" THEN N = 260 

IF PLS = "VENUS" THEN N = 960 

IF PLS = "MARS" THEN N = 40 

IF PLS = "JUPITER" THEN N = 12 

IF PLS = "SATURN" THEN N = 3.5 

IF PLS = "URANUS" THEN N = .81 

IF PLS = "NEPTUNE" THEN N = .38 
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PHOTO (continued) 




1080 


M = N * ASA 




1090 


EX = EFL ' 2 / K 




1100 


HOME : PRINT : PRINT 




1110 


PRINT "TO PHOTOGRAPH ";PL$;" ON FILM RATED AT " 




1120 


PRINT ASA;" ASA" 




113C 


PRINT 




1140 


IF A = 1 THEN EQ$ = "FILM AT PRIME FOCUS OF OBJECTIVE" 




1150 


IF A = 2 THEN EQS = " C AM ER A / E Y E P I E C E COMBINATION" 




1160 


IF A = 3 THEN EQ$ = "PROJECTION FROM EYEPIECE" 




1170 


PRINT "WITH ";EQ$ 




1180 


PRINT : PRINT 




1190 


EX = VAL ( LEFTS ( STPJ (EX), 3)) 




1200 


PRINT "THE EXPOSURE IS ABOUT ";EX;" SEC" 




1210 


PRINT 




1220 


PRINT " (NOTE: EXPOSURE GREATER THAN 1 SEC" 




1230 


PR TNT " IS NOT RECOMMENDED)" 




1240 


PRINT 




1?50 


PRINT "AND THE IMAGE ON THE FILM PLANE WILL BE" 




1260 


I = VAL ( LEFTf ( STR$ (I),3)> 




1270 


PRINT I;" MM IN DIAMETER" 




1280 


PRINT 




1290 


PRINT " (NOTE: IMAGE ON THE FILM PLANE" 




1300 


PRINT " SHOULD EXCEED 3 MM TO BE USEFUL)" 




1310 


PRINT : PRINT 




1320 


INPUT "WANT ANOTHER CALCULATION? Y/N ";Af 




1350 


IF A$ = "N" THEN GOTO 1370 




1340 


IF A$ < > "Y" THEN PRINT "INVALID RESPONSE": PRINT : GOTO 1320 | 


1350 


GOTO 310 




1360 


HOME 




13 70 


END 





fi 



h 



^- - in 4 
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MANY READERS WILL HAVE computers other than the Apple for 
which the programs in this book are listed. Because the programs have 
been written in the popu lar BASIC language, they are readily adaptable to 
other computers. Some computers have the ability to display more infor- 
mation on the monitor screen, others less. The more difficult programs to 

adapt are those that use screen graphics. In addition toknowing BASIC you 
also need to be familiar with the way your computer handles graphic displays 
Three important programs are repeated in this part of the book to aid 
in adapti ng these programs to other computers. They provide the same in- 
formation as the programs designed for the Apple computer, but they use 
different programming techniques. By studying these programs (and the 

displays they produce) in conjunction with those for the Apple computer 
you should have no major difficulty in converting one or the other to suit 
your computer. 








Photo Credit: NAiAj'lohmon 



On the lonely plains of the Moon, Apollo 17 astro- 
naut Schmitt is working at the Lunar Roving Vehicle 
in the Taurus-Littrow area. The peak in the center 
background was named Family Mountain. On the 



left horizon is a part of the South Massif. Amateur 
astronomers can still derive much pleasure from 
watching the sunrise and sunset shadows across these 
great lunar plains and their surrounding mountains. 



(y 
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Program 1BA: SKYPLA 



Alternative Skyplot Program. 



This version of the sky plotting program was written for an Exidy 
Sorcerer and mal<es full use of the graphics capabilities of that computer 
It IS a program complete within itself; it does not require any machine 
language routines as in Program 1 6. Hence it is more readily adaptable to 
other computers. The program has all the instructions needed to run it It 
IS also adequately supplied with remark (REM) statements in case you 
should wish to modify it in any way for your use or special needs. When 
you run the program you can request detailed instructions if you wish 

You will be asked for date and other input information, as well as 

whether you wanttochange the location parameters oftimezone, latitude 
and longitude. Next you are asked to select a horizon of 180 degrees 
centered on east, west, south, or north. As the program begins its calcula- 
tions the screen displays the messageCOMPUTING .. PLEASE WAIT During 
this period it loads arrays. 

The horizon chart is generated next. For the particular horizon you 

have requested, the azimuth is shown belowthe display and the elevation 
at the left. Date and time information is displayed above the chart Then 
the stars are plotted; this takes about five minutes. Next the program plots 
the Sun and any planets above that horizon at the time and date selected 
Finally it plots the Moon and shows it as ) before full, o when close to full 
and ( after full, selected in instructions 5850 through 5870. Since the pro- 
jection IS Mercator, constellations toward the zenith are somewhat 
distorted (stretched out horizontally). 

Variables have been initially set for your latitude, longitude, and time 
zone. While runn ing the program you can change the variables to other lat- 
itudes, longitudes, and time zones. The program should not be expected 
to run accurately at latitudes exceeding 85 degrees north and south 

Planets are identified by letters: m. Mercury; V, Venus; M, Mars- J 
Jupiter; S, Saturn; U, Uranus; N, Neptune; and P, Pluto. Note that if 
planets are within one pixel of each other, the outermost planet will over- 

printthe innermost; only the symbol for the outer planetwillbedisplayed 
Note that the numbers in lines 2420 and 2440 through 2510 refer to 
the Sorcerer computer's graphic symbols, which create the horizon 
silhouette. By referring to Figure 16A.1 you can select suitable graphic 
symbols from those available on your computer. You can of course 
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SKYPLA is a version of SKYSET/SKYPLT suitable for adaptation to other computers. Compare 
this figure with Figure 16.1, showing the same configuration of the planets, the Sun, and the 
Moon. Note the use of graphic symbols to provide a horizon silhouette. 



■Figure 16A.1- 



design appropriate silhouettes for your own locality and for the different 
horizon views. 

As with other programs containing many numerical data statements, 
take particular care in keying in the numbers and differentiating between 
commas and periods. 

To demonstrate the program and compare the display with that gen- 
erated bythe Apple (Program 16), selectthedisplayof 26 November 1981 
at 11.5 hours for the south horizon (Figure 16A.1). This shows all the 
planets, the Sun, and the Moon above the horizon at the same time. If you 
then ask for the same date and time in the Southern Hemisphere (for ex- 
ample, for —40 degrees latitude) and request the north horizon, you will 
see these same planets and constellations inverted. 

The listing of the SKYPLA program follows. - 



PROG RAMI 6A:SKYPLA 247 



— SKYPLA 



LATITUDE"FNDEGCLA) 

L0NLJITIJDE"L0 

TIME ZONE"ZN:PRINT:PRINT 



10 CLEAR . . ' 

20 DEFFNASNCX)=ATN(X/S9R(-X*X+1)) 

30 DEFFNAC0CX>=-ATNCX/SQRC-X*X+in+3. 14159/2 '' ■ 

40 DEFFNRADCX)=(X)*5.U159/18a 

50 DEFFNDEG(X)=(X)*180/3. 14159 ' • ' ' ' 

60 PI=3. 14159 

70 PRINTCHRSC12) 

80 PRINT:PRINT:PRINT:PRINT:PR1NT:PRINT:PRINT-PRINT 
90 PRINTTABC20)"S K Y P L T" : PR I NT : PR I NT 

no pri'n![JrJ1t^"^'^'°'^°"' program for S0RCERER-PRINT:PRINT 

130 p|Jj^;^J = j';;J'''^^S-2'^^^L$ = "SEBAST0P0L,CAL.-:L0 = 122.49 
140 PRINT"lni tiat conditions are set f o r . . . "L$ ■ PR INT 

150 PRINT '-■s-r-KiMi 

1 60 PRINT" 

170 PRINT" 

180 PRINT" 

200 OF = 0^"^°" ""^ Change tliese later"f you wish" 

210 FORJ7 = 2000T01STEP-1 :NeXTj7 

220 PRINTCHRS(12J:PRINT:PRINT:PRINT:PR1NT:PRINT:PRIN7 

230 :PRINTTABC21);" SKY PLOT" 

240 PRINT:PRINTTAB(25);"by" 

250 PRINT:PR1NTTAB(18>;"ERIC BURGESS F.R.A.S "-PRIfJT 

260 PRINT:PRINTTABC11)"PLots the stars f o r a r;ques t ed" 

270 PRINTTAe(12)"time and date, and shows the" 

280 PRINTTABC10)"pLanets, Sun, and Moon above the" 

290 PRINTTABC13)" horizon " 

300 PRINT:PRINTTABC10)"CLose to fuLL the Moon is shown as 

Ml ooJmII'^J'°'"^"'°^^ ^^^^ i* '^ shown as ) and" 

320 PRINTTABC12)"after fuLL it is shown as (" : PR INT • PR INT 

330 PRINTTAB(13)" AU rights reserved" ^^nf. print 

340 PRINTTABC15)" S S T Software" 

350 PRINT:PRINT 

360 F0RJ=2500T01STEP-1:NEXTJ:PRINTCHR$(12):PRINT 
370 G0T0U90 if-^ -rrsiiNi 

380 REM DAYS FROM EPOCH , . 

390 G=365*Y+D+((M-1)*3i) 
400 IFK>=3THENGOT0420 

lln ^:?~^^^^^-2*"*-^'-'INT{y/4)-INT(.75*INTCCY/100> + l>) 
HjUKtfUKN ^/ 

440 REM CALCOL OF LST ^ f 4 

450 SG=. 065711 ' ■ -^ 

460 T2=SG*NS +12. 064707+ ((CZN+T1)/24 >*SG3+T1 

470 IFT2>24THENT2=T2-24:60T0470 

480 IFT2<-24THENT2=T2+24:GOT0480 ' 

490 IFT2<0THENT2=T2+24 

500 T2$=STR$CT2) ' 

510 T2=VAL(LEFT$<T2$,5)) 

520 RETURN 

530 REM ENTER VAR.FOR CALC LST ' ' 

540 GOSUB380:NS=G-722895:GOEUB440 
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SKYPIA (continued)' 



550 REM ENTER VAR.FOR CALC NO. OF 
560 MO=M: OA=D : YR=Y 
570 G0SUB38O:ND=G-715875+T1/24 
580 REM STORE DATA FOR CALCS 

F4=1G0TO870 

STORE 



DAYS 



REM 
590 IFF 
600 RES 
610 




ii 
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■SKYPLA (continued)- 



1100 RETURN 

]]ln fn l^^'/''' ^2 0^ SUN AND PLANETS 
1120 F=0:2=A(3)-A(1) 

1130 IFABS{Z)>P1ANDZ<0THEN2=Z+(PI*2) 

1U0 IFABSCZ)>PIAND2>0THENZ = Z-CPI*2) 



119X) IFZ<OTHENR = FN0ECCA(3)+PI-x)/15 

1200 IFZ>0THENR=FNDECCA(3)+PI+X)/15 

1210 IFR>24THENR=R-24:G0TO1220 

1220 IFR<-24THENR=R+24:GOT01220 

1230 IFR<OTHENR = R + 2-l:60TO1230 

125? iFz>STHENnjN;;;.';''^-'^^'^-^^^^^^^^^"<Lci)) 



1270 IFHA<-12THENHA=HA+24 
1280 IFHA>12THENHA=HA-24 
1290 HA=FNRAD(HA*15>:V=FNRADCV) 
1300 AL= 



l^UO A'-=FNASNCSINCV)*SINCLA)+COS(V)*COSCLA)*rn<ifHaii 



.,,^ 'I*2-AZ 

1330 AL=FNDEG(AL):AZ=FNDEGCAZ) 
1340 RS=FNDEG(AC3)+pl)/75 



))) 




1390 HS=T2-RS 

UOO IFHS<-12THENHS = HS + 24 

1410 IFHS>12THENHS=HS-24 



U20 HS = FNftAD{HS*15):VS = FNRA0(VS> 

llfn ?r^^'^^^'^^"^^S^*SINCLA)+C0S(VS)*C0SCLA)*COSfH 

1460 AS = FNDEGCAS) :2S = FNDEGCZS) 
1470 RETURN 

1480 REM BEGIN MAIN PROGRAM 

1490 PRINT:PRINT"PLEASE WA I T" : PR I NT CH R$ ( 1 2 ) 



s)) 

SCAS))) 



1^?n L'?r'''''^''^^^^ = ^«^^T:PRiN; GO^S 640 

llln ^J;^I^^^'PUT'■DO YOU WANT TO SEE VARIABLI 

1520 IFAB$="N"THENGOTO1560 vakiablI 

1530 PRINT:PRINT"0ATE..";YR;MO-Da-" , mt 

1540 PRINT" TIME ZONE ::";';' '"'' 

?56SpR^;r^'^---"^^^^"^^^^-^--" -on.. 



.ES"; AB$ 

";T1;"HRS"; 
.";LO;PRINT 

1590 PRINT:PRINT 

1600 PR,«T"00 you .ANT TO CHANGE THE PATE OP: ..;y,;„„;„A 

1620 INPUT"ANSWER 'Y'OR "N'-'-AU 

1630 IFA1$="N"THENGOT01740 ' 

1640 PRINT:PRINT"WHAT IS THE DATE REQUIRED-' ' 
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■SKyPlA (continued)- 



1650 

1660 

16 70 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1 770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2109 

2110 

2111 

2112 

2113 

2120 

2130 

2140 

2150 

2160 



';ZN 



PR1NT:INPUT" THE YEAR";Y 

PRINT:INPUT" THE HONTH";M 

PRINT:INPUT" THE DAY";D 

MO=H:DA=D:YR=Y 

IFY>1 800eOT01 740 

PRINT:PRINT:PRINT"IS " ; Y ; " THE YEAR YOU WANT?" 

INPUTYS 

IFY$="Y"G0T01740 

IFYS="N"THENPR1NT:G0T01650 

PRINT:PRINT:GOSUB3440 

IFDF=0THEN1780 

PRINT" THE LMT OF: ";T1;" "; 

PRINT: INPUTA1S:IFA1S="N"THENG0T01 830 

PRINT"NOW YOU MUST INPUT THE LMT FOR THE D ISP LA Y " : GO SUB3320 

PRINT:PRINT"IF YOU WANT TO CHANGE VARIABLES" 

PRINT"ANSWER 'Y' WHEN ASKED, OTHERWISE ANSWER ' N '" 

IFDF=0THEN1830 

PRINT : Y$ = " LMT" :GOSUB332 

PRINT:PRINT 

PRIMT" THE TIME ZONE OF: "; Z N : INPUT A1 S 

IFA1$="N"THENGOT01870 

PRINT:INPUT"WHAT IS THE TIME ZONE (WEST COAST IS 8) 

PRINT : PRINT 

PRINTTABC15)"THE LONGITUDE OF: " ; LO : I NPUT A1 $ 

IFA1$="N"THEN60T01910 

PRINT :G0SUB3510 

PRINT:PRINT 

PRINT" THE LATITUDE OF: ";FNDEGCLA) 

INPUTAIS 

IFA1$="N"THEN60T01980 

PRINT:INPUT"WHAT IS THE LATITUDE ( S EB AS T OPOL; 38 . 24 ) " ; L A 

LA=FNRAD<LA) 

IFHR=1 ANDA$="N"THENHR=0:A$="":60TO2 680 

IFHR=1ANDA$="Y"THENHR=0: AS="":GOTO2120 

PRINTCHRSC12):PRINT:PRINT:PRINT:PRINT 

PRINT:PRINT"WHICH HORIZON DO YOU WANT TO SEE?" 

PRINT 

PRINT:PRINTTABC5)"1 EAST HORIZON 

PR1NT:PRINTTABC5)"2 WEST HORIZON 

PRINT:PRINTTAB(5)"3 SOUTH HORIZON 

PRINT:PR1NTTABC5)"4 NORTH HORIZON 

PRINT: INPUT"SELECT ";HZS 

IFCHZ$="1"ORHZS="2"ORHZ$="3"ORHZ$="4")THEN2100 

PRINT"INVALID E NT R Y " : G0TO2 1 

HZ=VALCHZ$) 

DS=0:PRINT:PR INT 

PRINT"Do You Want Stars displayed As WeLL As PLa 

PRINT"Sun, and Moon (Y/N)"; 

INPUT DSS:IF DS $=" N" TH E N DS = 1 : GOT021 20 

IF DSS<>"Y"THENPRINT"In\/a Lid Res pons e" : PR I NT : G OT 

REM BEGIN CALCS 

FL=3 

PRI NT CHR$(12): PRINT "COMPUTING... PLEASE WAIT":PRI 

IFFP=1G0TO2330 
DIMP0(30,64> 



TO 180 


DEG. 


80 TO 360 


DEG. 


90 TO 270 


DEG, 


270 TO 90 


DEG . 



I 



nets," 
02110 

NT 
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■SK\?IA (continued)- 



rEP-1 



210 P=p+1 

?2D NEXTXX 

^30 PRINTCHRSC12) :PRINT"COMPUTING.. PL 

240 NEXTYY 

250 DIMPPC8,8) 

>An a- 1 Ol 



2170 P=-3968 

2180 F0RYY=29T00ST( 

2190 F0RXX=0TO63 

2200 LETPOCYY,XX)=P 

2210 P=p+1 

2220 NEXTXX 

2230 ""' 

22- 

225L ..,.,rr 

2260 P=192 

2270 F0RX8=0TO7 

2280 F0RY8=0T07 

2290 LETPPCY8,X8)=P 

2 300 P=P+1 

2310 NEXTY8,X8 

2320 FP=1 

2330 REM SET UP GRAPHICS 

2335 IFDS = nHEN2670 

2340 GOSUB5030 

2350 G0T0267D 

2360 PRINT 



EASE WAIT' 




2 
2 
2 

2 .,„ , 

2460 PRINT 

2470 PRINT"C' 

2480 PRINT 

2490 - 

2 

2 

2 

25 

25 

25 

25 

255D PRINT" N 20 

2560 PRINT" 160 S" 

2570 F6=1:PRINTCHR$C17):RETURN 

25S0 PRINT" S 200 220 

2590 PRINT" - 

2600 



VERTICAL SCALE 



RAPHIC CHARACTERS FOR 
GRAPHICS TO SUIT YOUR 
490 (See Fi gure 16A. 1 ) 
8 5" 




2590 PRINT" 340 N" 

2600 F6=1:PRINTCHRSC17) :RETURN 

2610 PRINT" E 110 130 

2620 PRINT" 250 W" 

2630 F6 = 1 :PrintCHRS(17> 



130 
RETURN 



240 260 W 280 300 320 
150 170S190 210 230 
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■SKYPLA (continued)- 



2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2825 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2925 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3045 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 



310 



;RETURN 



330 



350 N 10 



30 



LMT. ."T1;"HRS"; 
" H 2 $ ; 
:ABS(FNDE6(LA)};U$ 
Computing Positions" 



PRINT" U 290 

PRINT" 70 E" 

F6 = 1 :PRINTCHR$C17) 

G0SUB530 

PRINTCHR${12) 

IFH2=1THENHZ$="EAST HORIZON" 

IFHZ=2THENHZ$="UEST HORIZON" 

IFH2=3THENHZ$="S0UTH HORIZON" 

IFHZ=4THENHZ$="N0RTH HORIZON" 

GOSUB3440 

G0SUB2380 

U$="North" 

IFLA<OTHENU$="South" 

PRINT" DATE. ."YR;M0;Dfl;" 

PRINT" LST.."T2"HRS":PR1NT" 

PRINT" LATITUDE. . 

PRINT" Please Wait 

PRINTCHRSd 7) 

REM PRINT SKY DOME 

IF DS=1THEN2850 

REM POKE STARS 

GOSUB3580 

REM POKE SUN " - 

1FAS<OGOT02950 

BS = 2S 

IFHZ=3ANDCBS>90ANOBS<270)THENX1=BS-90:Y1=AS:GOT02 93 
IFHZ=4ANDCBS>270ANDBS=<360)THENX1=BS-270:Y1=AS:GOTO 
IFHZ = 4AN[>(BS>OANDBS<85)THENX1=BS + 90:Y1=AS:GOT02930 
IFHZ=1ANDBS<=180THENX1=BS:yi=AS :GOTO2 930 

IFH2=2ANDBS>180THENX1=BS-180: Y1=AS:GOT02930 
G0TO295O 

Y2=28/90*Y1+2.5:X2=55/180*Xl+4 

P0K:EP0CINTCY2),INT(X2)),132 

REW SELECT AND POKE PLANETS 

F0RI8=1T09 

BZ(I8)=AZ(I8> 

IFAL(I8)<50RALCI8)>8 0THENGOT03110 

IFI8=3THENGOTO3110 

IFHZ=1ANDBZCI8)<=180THENG0TO3060 

IFHZ=2ANDBZ(I8)>180THENBZCI8>=BZ{1S)-180:GOT03060 

IFHZ=3ANDB2CI8)>90ANDBZ(I8)<270THENBZ(I8)=B2CI8)-90 

IFH2=4ANDCBZ(I8)>270AND6Z{I8)=<360)THENGOT03050 

IFHZ=4ANDCBZ(l8)>0ANDBZ(l8)<85)THENBZ(I8)=B2{I8)+90 
GOT03110 

BZCI8)=BZCI8)-270 

REM POKE ROUTINE 

X1=BZCI8) : Y1=AL(I8) 

IFCX1<50RX1>175)THENGOT03110 

Y2=28/90*Y1+2.5:X2=55/180*X1+4 

P0KEP0CINTCY2>,INT(X2)),P(I8) 

NEXTI8 

G0SUB5230 

G0T03150 

REM END SEQUENCE 

PRINT:PRINT 

PRINTTAB(22)"Do You Want Another Horizon"; :INPUTA$ 



50 ", 




2930 



:G0T03 
:GUT03 



060 
060 



(r 



■^ 
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-SKyPlA(continued)- 



3170 rt = MO:D = DA:y=rR 

3180 FP=1 

3190 IFA$="N"THENG0TO325D 

3200 HR=1:PRINTCHR$(12):PRINT:PRINT:PRINT"WHICH H0RI2 

3210 PRINT:PRINTTABC7)"EAST... 1" : PR I NTTAB C 7 ) "WE ST . . 

3220 PRINTTAeC7)"S0UTH.. 3" : PR I NTT AB ( 7) " NORTH 4" 

3230 PRINT:INPUT"SELECT " ; H2 $ : H 2= VAL C H Z S ) 

3240 PRINTCHR$(12):HR=1:PRINT:PRINT:PRINT:GOT01570 

32 50 PRINTCHRJC12):PRINT:PRINT:PRINT 

3260 INPUT"WANT ANOTHER DATE Y/N"-A$ 

3270 1FA$="Y"THENGOT01 510 

3280 1FAI<>"N"THENPRINT:PRINT"INVALI0 R EP L Y" : GO T032 60 

3300 ^JJ^^*^^''*^''^'-f"''^NT:PRlNT"SKYPLOT SIGNING OFF" 

3310 REM TIME INPUT 

3320 PRINT:PRINT"00 YOU WANT INPUT IN &EC.HRS CD" 

3330 PRINT" OR IN HR,MI,SE (2)":PRINT 

3340 INPUTPT$:PT=VALCPT$) 

3350 IFPT=1THENGOT03380 

3360IFPT=2THENGOT03400 

3370 PRIfJT"INVALIC) R EP L Y" : PR I NT : GO T033 20 

3380 PRINT:PRINT"WHAT IS THE LMT -HH.XXXX" 

3390 PRINTiINPUTTI :PRINT:G0T03430 

3400 PRINT:PRINT"WHAT IS THE LMT -HR,riI SE" 

3410 PRINT:INPUTHR,MI,SE 

3420 T1=HR+MI/60+SE/3600:PRINT 

3430RETURN 

3440 REM PRINTING HR,MI,SE 

3450 RR=INT(T1) 

3460 IM=(T1-INTCT1 ) )*60 

3470 ES={IM-INT{IM))*60 

3480 ES=INTCES) 

3490 IM=INT(IM) 

3500 RETURN 

3510 REM CORRECT 2N FOR LONGITUDE 

nil [gC = I;Jm5™" " '""'''"O'' S^^STOPOL IS U2. 

3540 IFLGC<0THENGOT03560 

3550 2N=ZN+ABS(LGC/15) :GOT03570 

3560 ZN=2N+LGC/15 " 

3570 PRINT:RETURN . 

3580 REM DEVELOP HA, AZ AND AL FOR STARS 



ON" 
2" 



49"; LO 



V 



(y 



3590 IFSF=1THEN4620 

3600 D1MST(237,2) 

3610 F0RSY = OT0236:FOR.SX = 0TO1 

3620 READST(SY,SX) 

3630 NEXTSX,SY ■ .. 

3640 REM DATA ON RA AND DEC OF STARS 

3650 REM URSA MINOR 

3660 t>ATA2, 89, 18, 86, 17, 82, 16, 78, 15, 75, 15. 4, 72 16 3 76 

3670 REM CEPHEUS , < ^ • '*, f ^, i o . J , rb 

3680 DATA20.8,61,21 .5,70 

3690 REM CASSIOPEIA 

3700 DATA1. 9, 63, 1.4, 60, 0.9, 60, 0.6, 56, 0.1, 59 

3710 REM PERSEUS 
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3720 DATA3. 3, 50, 3. 0,53, 3. 7, 48, 3. 1,41, 3. 9, 40, 3. 9, 32 
3730 REM URSA MAJOR 

3 740 D AT A11, 57, 11, 63, 11. 9, 54, 12. 2, 58, 12. 9, 57, 13. 4, 55, 13. 7, 50 
3750 REM DRACO 

3760 DAT A1 6, 59, 16. 4, 62, 17. 1,66, 17. 5, 52, 17. 9, 51, 18. 3, 73, 19. 2, 68 

3770 REM CEPHEUS 

3780 l>ATA23.8,78,21 .3,62,22.1,58,22.8,67 

3790 REM ANDROMEDA 

3800 DATA2,42,1.1,35,.6,31 

3810 REM TRIANGULUM 

3820 DATA2. 1,35,1 .8,29,2.2,34 

3830 REM PEGASUS 

3840 DATA22. 7, 30, 0.1, 29, 0.2, 14, 21. 7, 10, 22. 2, 6, 22. 7, 10, 23. 0,4 

3850 DATA23,28 

3860 REM AURIGA 

3870 0ATA5. 2, 46, 5. 9, 45, 5. 9, 37, 4. 9, 33, 5, 41 

3880 REM BOOTES 

3890 D AT A14. 5, 39, 15, 40, 15. 3, 33, 14. 2, 20, 13. 9, 19, 14. 7, 27, 15. 5, 27 

3900 DATA15.4,29 

3910 REM CORONA 

3920 DATA15.6,27 

3930 REM HERCULES 

3940 DATA16. 7, 39, 16. 7, 31, 17, 31, 17. 2, 37, 17. 2, 25, 16. 5, 21, 16. 4, 19 

3950 REM LYRA 

3960 DATA18.7,39,18.8,33,19,32 

3970 REM CYGNUS 

3980 DATA20. 7, 45, 20. 3, 40, 19. 8, 45, 20. 8, 34, 19. 5, 28 

3990 REM TAURUS 

4000 0ATA3. 6, 24, 3, 4, 2. 7, 3, 4. 5, 17, 5. 4, 29, 5. 6, 21 

4010 DATA3.7,24 

4020 0ATA4.3,15,4.45,19 

4030 REM ARIES 

4040 DATA2, 1,23,1 .8,21,1 .8,19 

4050 REM ERIDANUS 

4 060 DATA3. 9,-1 3,3. 3,-20 
4070 REM PISCES 

4080 DATA1 .5,-9,1 .2,-10 

4090 REM CETUS 

4100 DAT A. 7, -18, 1.1, -10, 1.3, -9, 2, 2 

4110 REM ORION 

4120 D AT A5. 9, 8, 5. 4, 8, 5. 75, -2, 5. 6, -1,5. 45, 0,5. 8, -10, 5. 6, -6 

4130 DATA5.6,10,5.5,-21,5.2,-9 

4140 REM CANIS MAJOR ' 

4150 t>ATA6. 7, -17, 6, 3, -18, 6. 9, -29, 7. 2, -27, 7. 4, -29 <^ ^ -* , 

4160 REM CANIS MINOR " ('^/■ 

4170 DATA7. 6,7,7.4, 9 * 

4180 REM GEMINI 

4190 DATA 7. 6, 32, 7. 7, 28, 7. 3, 22, 6. 7, 25, 6. 6, 16, 6. 4, 22, 6. 3, 22 

4200 REM LEO 

4210 DAT A 10. 1,12, 10. 1,17, 10. 3, 20, 10. 3, 24, 11. 2, 20, 11. 2, 16 

4220 DATA11 .8,15,9.8,28,9.7,26 

4230 REM CANCER 

4240 DATA8. 7,29,8. 6,21 

4250 REM HYDRA 

4260 DATA9. 5,-9,8.7,7,8.9,7,9.2,2,10.4,-17 
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4820 


1FHZ=2THEN4870 


4830 


IFHZ=3THEN4890 


4840 


IFHZ=4THEN4910 


4850 


1FCS2>5ANI>SZ<175>THENG0T04940 


4860 


GOT04990 


4870 


IFCSZ>185ANDSZ<355)THEKS2=SZ-18O:G0TO4940 


4880 


G0TO4990 


4890 


IFCSZ>95ANDSZ<26 5)THENSZ=SZ-90:G0T04 940 


4900 


G0T04990 


4910 


IFCSZ>275ANDSZ=<360)THENSZ=SZ-270:GOT04940 


4920 


IFCSZ>OANI)SZ<85)THENSZ = SZ + 90:GOT04940 


4930 


G0T04990 


4940 


REM POKE STAR 


4950 


X1=SZ:Y1=SL 


4960 


Y2=28/90*Y1+2.5:X2=55/180*Xl+4 


4970 


Y3=8*Cy2-INTCY2)):X3=8*CX2-INT{X2)) 


4980 


POKEP0(INT(Y2),INTCX2)),PPCINT{Y3),INTCX3)) 


4990 


NEXTK 


5000 


X1=0:Y1=n:Y2=0:X2=0:X=0 


5010 


RETURN 


5 20 


REM SET 8X8 GRID 


5030 


IFFS = 1THENRETURr4 


5040 


LP=-512:XP=0:AP=7:GP=128 


5050 


FORIP=1T08: F0RJP=lTO9 


5060 


IFJP=9THENAP=AP+1 


5070 


F0RKP=1T0AP 


5080 


POKELP,XP 


5090 


LP=LP+1 


5100 


NEXTKP 


5110 


IFJP=9G0T05200 


5120 


POKELP,GP 


5130 


LP=LP+1 


5140 


IFFPO160T05170 


5150 


PR I NT CHRSC 12): PRINT "COMPUTING... PLEASE WAIT 


5160 


NEXTJP 


5170 


IFJP=9GOT05190 


5180 


AP=AP-1:FP=1 


5190 


NEXTJP 


5200 


FP=0:AP=7:XP=0:GP=GP*.5 


5210 


NEXTIP 


5220 


FS=1:RETURN 


5230 


REM POKE MOON ON CHART 


5240 


ND=ND-.5 


5250 


LP=255.7433 


5260 


L2=311.1687:LE=178.699:LM=LZ+360*ND/27.3215 


5270 


MD=LM:GOSUB5890: LM=MD 


5280 


REM CORRECT FOR ELLIPTICAL ORBIT 


5300 


PG=.1 1 1404*NI> + LP 


5310 


MD=PG:GOSUB5890 


5320 


PG = Mt) 


5330 


P G = L n - P G 


5340 


DR=6.2886*CSIN(FNRADCPG)) ) 


5350 


LM=Ln+DR 


5360 


RQ=LM:RM=LM/15 


5370 


IFRM>24THENRM=RM-24:G0T0 5370 


5380 


IFRM<0THENRM=RM+24 
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5750 


5760 


5770 


5780 


5790 


5800 


5810 


5820 


5850 


5840 


5850 


5855 


5860 


5865 


5870 


5880 


5890 


5900 


5910 


5920 


5930 


5940 



5390 AL=LE-ND*. 052954 

5400 ND=ND+.5 

5410 MDi = AL:eOSUB5890 

5420 AL=MO 

5430 AL=RQ-AL 

5440 IFAL<360THENAL=AL+360 

5450 IFAL>360THENAL=AL-360 ' ' - 

5460 HE=5.1333*SIN(AL*P1/180) 

54 70 DM=HE+23.1444*SIN(RQ*PI/180) 
5480 HD=T2-RM 

5490 IFHD<-12THENH0=HD+24 

5500 IfHD>12THENHD=HD-24 

5510 IFCHD>120RHD<-12)THENG0T05940 

5520 HA=FNRADCHD*15):DR=FNRAD<DM) 

55 30 ML=FNASNCSINCDR)*SIN(LA)+COS(0M)*COSCLA)*C0SCHA)) 
5540 M2=FNACO((SIN(DM)-SINCLA>*SIN(ML))/CCOS(LA)*C0SCML>)) 
5560 IFHA>0THENMZ=PI*2-W2 

5570 MZ=FNDEGCM2) 

5580 ML=FNDEG(f1L) 

5600 IFML>800RML<5THEN5800 

5610 MX=M2 

5620 IFHZ=1THEN5660 

5630 IFHZ=2THEN5680 

5640 IFHZ=3THEK5700 

5650 IFHZ=4THEN5720 

5 660 IFCMX>10ANDnX<170)THENGOT05750 

5670 G0T05S00 

5680 IF(MX>190ANDMX<350)THENMX=MX-1SO:60T0575D 

5690 GOT05800 

5700 IF(MX>100ANDMX<260)THENMX: 

5710 GOTO5800 

5 720 IF(MX>275ANDMX=<360)THEHMX=MX-270:GOTO5750 

5 73 IF(MX>0ANDMX<85)THENMX=MX+90:GOT05750 

5740 G0TO5800 

REM POKE MOON 

X1=MX: Y1=ML 

Y2 = 28/90*n+2.5:X2 = 55/180*X1+4 .- 

G0SUB5820 

POKEPO(INT<Y2),INTCX2)),MS 

X1=0:X2 = 0: n=0: Y2 = 

RETURN 

PM=RS+12-RQ/15 

IFPf1>24THENPM = PM-24 

IFPf1>1 2THENPM = PM-24 

IFCPri> = -2ANDPM< = 2)THENnS = 1'11 iRETURTJ 

IF LA<0ANDPM<-2THErjMS = 41 : RETURN 

IFPM<-2THENP1S = 40:RETURN 

IF LA<OANDPM>2THENP1S = 40: RETURN 

IFPr>2THENMS=41 

RETURN 

IFRD<-3600THENMD=MD+3600:G0T05890 

IFM0<-56 0THENM0=MD+36O:GOT059 0O 

IFMD<0THENMD=M0+360 

IFM[)>3600THENMD-M0-3600:GOT05 920 

IFMD>36DTHENnD=MD-360:G0T05920 

RETURN 



=MX-9O:G0TO575n 




Photn I red it: NASA/jet Propulsion L^iborstcry 

By the end of this century man may begin to set up 
working bases on the planets, possibly beginning 
with a base on the Moon and continuing with a base 
on Mars, as shown in this artist's concept. In this pic- 
ture solar sail spacecraft are bringing people and 
materials into orbit around Mars, from which descent 



takes place by parachute. The landed modules are 
then established as parts of the base. They would 
gradually be interconnected like the modules of 
bases in Antarctica or those of the oil cities on Alaska's 
North Slope. 4 / 

In 



\ 



(y 
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Program T7/\\ PLNTA 



Alternative Planet Finder Program. 



This program is a more advanced version of Program 1 7, PLNTF. It is 
designed for use with computers having 64 by 30 screen formats. Because 
of the larger screen format, the program can display more detail on the 
screen and a wider range of stars on the star charts. 

When you select a date and a planet, the Sun, or the Moon, this pro- 
gram calculates where the object is located among the "fixed" stars of the 
celestial sphere. It selects a suitable star chart, displays its name, identifies 
constellations, shows the object among the stars, and names bright stars. 
It identifies and displays nearby constellations over 4 hours of right ascen- 
sion and 60 degrees of declination, and it provides a grid of right ascension 
and declination. Because of the limitations of resolution of the monitor 
screen, the selected object's accurate right ascension and declination are 
displayed before the object is shown on the star chart. 

The program then offers several options. You can elect to have other 
planets, the Sun, and the Moon displayed on the chart if they are located 
in the same chart region on the date requested, and you can elect to have 
the grid lines deleted and again either have a single planet or all planets 
displayed. 

When you have obtained the information, the program asks you if 
you want another planet on that same date. If you answer 'Y' it will then 
select an appropriate chart to display the new selection and offer again the 
ability to chart other planets in that new star chart, with or without grid lines. 
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number of'plo.s requt d ,f y^ eq r "^ erieT""' " '''' ^"' ''^^ 
number of plots and the tim^ in, " w T , f '''' y°" '""*' ^nput the 
seriesof plots runs of the sTrirr "" '''^'' '''='*''<'" ^^^^ plot. If your 
planet an'd the m^^le ofTc^X^! ?°"''°^ -i" display the name of the 

this series mode you also have the rhi? ''7.'^°' '^'' '" °"'^' =^^^'- '" 
the Sun in the same sta chart rl=f , T °'l.'''''"« '" °''^^^ P'^"^' and 

period.Figures^Tuhro 7r5i,Ltrhetr°hT™"?.'"^^^ 

of the planet finding program. capabilities of this version 



EHTER THE DATE 
THE VEAR? 1982 
THE MOHTH? 2 
THE DAV? 28 
TIHE ZOHE? 8 
Tift HRS? 22 



Select Intervals and Hott Manu 
Enter I's if Vou Onif^ 



tnier rs If Vou Only Heed One Plot 
HOTE: Position of Noon shown for first interval only 
WHAT IS TIHE INTERVAL (DAVS)? 1 
HOW HANV IHTERVALS? 1. 



Figure 17A,1 
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WHICH PLANET (OR THE SUN) DO VOU WANT TO DISPLAV 



MERCURV (fn)...l 
VENUS (V).....2 

hars (m 4 

JUPITER (J)... 5 
SATURN (S)....6 
URANUS m.,..7 
NEPTUNE (N)...8 
PLUTO (P) 3 



..SUN (•) 



SELECT 1 THRU 9? 4 



PA OF MARS IS 13.2 DECLINATION IS -6.81 

PPESS RETURN TO DISPLAV PLANET ON STAR CHART? . 



The program then displays the names of the planets and asks you to select one. After a short 
delay it provides the right ascension and declination of the selected planet. 



Figure 17 A. 2 



The program will need modification to suit each computer's display 
format. The parts of the program requiring modification are those that 
display the constellations and insert (POKE) the planets, the Sun, and the 
Moon in the displayed star chart. 

For example, a display that has a format of only 40 full characters 
across the screen (PET, Atari) will have to use 1 characters for 1 hour of 
right ascension instead of the 1 5 used in this program. A computerthat has 
only 16 character lines (some TRS-80 models) will have to reduce the ver- 
tical size of the star charts and eliminate some of the constellations; that is, 
it must accept star charts that are plus or minus 7 degrees of declination 
about the mean ecliptic position in the chart area. 
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MTE~im/'z/ 28- INTERVAL I Hi's \"' 



OTHERS? _ 



Serpens 



nrcturus 

I 



I i .jj 



-----13 12 



! Libra j 1 % j j 



Corvus 



1 i ,i i i 



A new display is then generated showing a grid of right ascension and declination for the 
region of the star sphere in which the planet is located. The stars are plotted on the grid and the 
constellations are named. Finally, the planet is plotted at its correct position among the stars. 



Figure 17A.3 — 



The POKES for the planets are developed in the routine 2480 through' 
2590, which provides PDE, the planet POKE number. Instruction 2870 
sets up S, which is the POKE constant that can be varied to suit different 
machines. S is the number to POKE that will place a character on the extreme 
bottom right corner of your computer's display. The POKE numbers for 
planets assume a 64-character-wide screen. For a 40-character-wide screen, 
instruction 2590 (which develops the screen coordinate for declination) 
must be changed to 



PDE = DE X 40 
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The right ascension coordinate (instruction 2730) also must be changed to 

RA = RA X 10 

The POKE numbers for right ascension will also have to be changed 
for a 40-character-wide display. Instructions 3810, 4880, and 5640 must 
all be changed to FOR J^l TO 41 STEP10; instruction 4540 must be 
changed to FOR J = 1 TO 21 STEPIO; instruction 4590 must be changed 
toFORJ = 31 TO 41 STEPIO; and instruction 5250 must be changed to 
FOR J- 11 TO 41 STEPIO. 



Bootes 30 

Bftn 1982/ 2/ ZBinm^l l Bays ! 



I 



! Serpens 



Arcturus 



I -. , jg 



Virgo 



13 1 



r Lib^a ! jg 



S n. ! 

X "l 

! X X 

! Corvus 
! X 

I y 



: 1 ji 1 : 



If you answer the question 'OTHERSrwith T'a// other planets In the same star chart region 
are also plotted, as shown. You can ask for the Moon to be displayed as well. If you wish you 
can also have the star chart displayed without the grid lines. 



Figure 17 A A 
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Bootes 
MOON? N 



Uant 
Grid X 
V/H 

Serpens 



Arcturus X 



Libra 



Corvus 



As with Program 1 7, you can obtain a series of plots showing the motion of the planet relative 
to the stars over a period of time. Mars is plotted in this display. 



Figure 17 A. 5 



Modifications are somewhat more complicated for a monitor with only 

IStext lines, sincethe full star charts cannot bedisplayed.ATable of Right 
Ascensions and Declinations for suitable stars to build your star charts 
from IS provided for such a computer (see pages 266-267). This will affect 

all the routines toplotcharts,namelyjnstructions3770through 6000 the 
routines to plot the grid lines (2840 through 3010), and the figures of 

decimation on thegrid(3030through 3100). Sufficient remark statements 
have been included in these routines for you to select those routines that 
need to be modified to suit your computer's display capabilities 



fV 
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For a computer with a display monitor showing only 16 lines, it is sug- 
gested that the charts be made to show the following declination ranges: 

Chart 1: Declination -1 to 14 

Chart 2: Declination 12 to 28 

Chart 3: Declination -1 to 14 

Chart 4: Declination 1 to -14 , , • . - 

Chart 5: Declination -12 to -28 ^ ■'•;%;/;-/:: J 

Chart 6: Declination 1 to -14 ^ " • 

This will eliminate all stars In the Table that have declinations outside 
these ranges. The effect will be to display only the zodiacal constellations, 
as in the Apple version given in Program 1 7. Additional resolution can be 
obtained by providing one chart for each zodiacal constellation instead of 
the six used in this version. 

The easiest way to make the changes is to draw a screen map of your 
computer monitor and put the POKE numbers on it for the four corners of 
your screen. Then make six tracings of the screen, dividing it into fou^ 
equal parts vertically and (for a 1 6-line-deep display) two parts horizontally. 
By placing a tracing of a star chart generated from the table of right ascen- 
sions and declinations over the screen sketch you can workout the POKE 
numbers to be deducted from the value you have selected for S. Then you 
can rewrite the instructions for the six charts of the zodiac. Also, you must 
check the ASCII equivalents on your computer for the characters to be 
POKED. For the Sun, for example, you can use a zero in place of the 
graphic shown in the program. Refer also to Program 1 7. 

The basic calculations of planetary positions, as well as the subroutines 
and flags used to produce the different types of displays and select the 
chart zones, will operate in connection with any new display formats you 
wish to develop. The program has been sprinkled with REM statements to 
help you modify it to suit your system. 

The listing of the PLNTA program follows. ^ 
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Table of Right Ascensions and Declinations for Constellations 
Displayed by PLNTA Program 



Chart 1 : RA to RA 4 



Pegasus 


0.1, 


29 


Pleiades 


3.6, 


24 


Aries 


2.1, 


23 


Taurus 


3.0, 


4 


Eridanus 


3.9, 


-13 


Pisces 


1.5, 


-9 


Cetus 


0.7, 


-18 



0.2, 14 

(five close stars] 
1.8, 21 

2.7, 3 

3.3, -20 
1.2, -10 



.8, 



19 



Chart 2; RA 4 to RA 8 



Orion 




5.9, 


8 


5.4, 


8 


bJ, 


-2 






5.5, 





5.8, 


-10 


5.6, 


-6 


Sirius 




6.7, 


-17 


6.3, 


-IB 






Taurus 




4.5, 


17 


5.4, 


29 


5.6, 


21 


Procyon 




7.6, 


7 


7.4, 


9 






Gemini 


(dropped sli 


ghtly to be 


on chart) 












7.5, 


30 


7.1, 


28 


7.3, 


22 






6.6, 


16 


6.4, 


22 


6.3, 


22 



5.6, 
5.2, 



-1 

-9 



6.7, 



25 



Charts: RA8to RA 12 



Leo 

Cancer 
Hydro 

Virgo 
Crater 



10.1, 

11.2, 

9.7, 

8.7, 

9.5, 
10.4, 

11.8, 

10.8, 



12 

20 

26 

29 

-9 

-17 

2 

-16 



10.1, 

11.2, 

8.6, 
8.7, 



17 
16 

21 

7 



10.9, -18 



10.3, 
11.8. 



8.9, 



11.3, 



20 

15 



10.3, 
9.8, 



9.2, 



24 
28 



15 



11.4, -18 



I 
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Table of R 


ight Ascensions and Decimations for 


Constellations 








Displayed by PLNTA Prog 


ram 














Chart 4: 


RA12toRA16 








Virgo 


13.4, 
12.3, 


-11 

-1 


13.0, 
13.1, 


n 

-5 


12.9, 


3 


12.7, 


-1 


Corvus 


12.5, 


-16 


12.2, 


-17 


12.5, 


-23 


12.2, 


-22 


Bootes 


14.2, 
15.4, 


20 
29 


13.9, 


19 


14.7, 


27 


15.5, 


27 


Serpens 


15.8, 

15.8, 


17 
-3 


15.5, 


10 


15.7, 


7 


15.8, 


5 


Libra 


15.3, 


-9 


14.8, 


-16 
















Chart 5: 


RA16toRA20 








Aquila 


19.7, 
18.9, 


10 

14 


19.8, 


9 


19.9, 


8 


19.0, 


13 


Ophiuchus 


17.5, 


12 


17.2, 


25 


17.6, 


5 


17.7, 


3 


Sagittarius 


18.3, 


-30 


18.0, 


-30 


18.4, 


-25 


18.9, 


-26 




19.0, 


-30 


19.1, 


-21 


18.3, 


-21 






Scorpio 


16.5, 

15.9, 


-26 
-22 


16.6, 
15.9, 


-28 
-26 


16.4, 


-24 


16.0, 


-20 








Chart 6: 


RA 20 to RA 24 








Fomalhaut 


22.9, 


-30 














Capricornus 


21.7, 


-18 


21.6, 


-18 


21.4, 


-22 


20.8, 


-28 




20.7, 


-26 


20.3, 


-14 


20.2, 


-12 






Delphinus 


20.5, 
20.8, 


11 
16 


20.6, 


15 


20.7, 


15 


20.6, 


16 


Pegasus 


21.7, 
23.0, 


10 
28 


22.2, 


6 


22.7, 


10 


23.0, 


4 


Aquarius 


22.6, 
22.0, 






22.5, 
21.5, 



-6 


22.4, 


1 


22.3, 


-2 
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PLNTA 



10 

2D 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

120 

140 

1 50 
160 
165 
170 
180 
190 
200 
210 
220 
230 
240 
245 
250 
260 

2 70 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
385 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 



LEAR 

LEARdSO) 

IMPDC9,9) 

EFFNAC0CX)=-ATN(X/SQR(-X*X+1))+1 .570 7963 

EFFNRAD(X)=.01745328*CX) 

E FFNDEG(X) =57, 29578* (X) 

RINTCHR$<12):PRINT:PRINT:PRINT:PRINT:PRINT 

RINTTABC14)"ASTRON0MY PROGRAM FOR SOR C E RE R " : PR I NT : PR INT 

RINTTABC14)" " 

PRINTTABC14)"*-*-* | PLANET FIWDER | *-*-*" 

PRINTTAB(14)" ":PRINT 

PRINTTAB{17>"By ERIC BURGESS F.R.A.S." 

PRINT: PRINT 

PRINTTAB(18)"AL L rights reserved by" 

PRINT 

PRINTTABd 8)"S & T Software Service" 

PRINTTAB{10)"13361 Frati Lane SebastopoL CA 95472" 

PRINT:PRINT:PRINT 

PRINTTABC22)" (Version 4.82)" 

PR INT: PR I NT: PR INT: PR I NT: PR INT 

1NPUT"D0 YOU WANT INSTRUCTIONS CY/N)";A$ 

IFA$="N"THEN630 

IFA$<>"Y"THENPRINT:PRINT'*INVALID REPLY": GO T0190 

PRINTCHRSC12) 

PRINTTABC12)"THIS PROGRAM PLACES A PLANET (OR THE SUN)" 

PRINTTAB(25)"AN0 THE MOON" • • 

PRINTTAB(16)" AMONG THE CONSTELLATIONS 

PRINT 

PRINTTAB(18)"F0R THE DATE WHICH YOU INPUT":PRINT 

PRINTTAB(17)"AND A SERIES OF TIME INTER V ALS " : PR 1 NT 

PRINTTAB(11)"The program selects a zone of the celestia 

PRINTTABd 1 )"sphere 4 hours of right ascension wide and' 

PRINTTAB (1 1 )"f rom 30 deg. north of the celestial equator" 

PRINTTABd 1 ) "to 29 deg. south declination. It pLots the" 

PRINTTABd 1 ) "se lected planet's position relative to the" 

PRINTTABd 1 ) "stars of the constellations, naming these and" 

PRINTTABd 1 ) "the brightest stars. If you answer the" 

PRINTTABd 1 )"question 'OTHERS' with 'Y', other planets" 

PRINTTABd 1 )"i n the same chart region are plotted also." 

PRINTTABd 1 ) "The Sun is plotted if it's in the same region.' 

PRINT 

PRINTTAB(11)"A grid of right 

PRINTTABd 1)"is printed, but 

PRINTTAB CI 1)"and later bring 

PRINTTABd 1 ) "If you have the 

PRINTTABd 1 ) "the 'Do You Want Grid' question with 

PRINTTABd 1) "you will end the display and can then' 

PRINTTABd 1 )"pi ck another planet or another date." 

PRINT:PRINT 

INPUT"WHEN READY TO CONTINUE PRESS RETURN KEY";AS 

PRINTCHR$(12):PRINT:PRINT:PRINT:PRINT:PRINT:PRIWT 

PRINTTABd 1 )"Ri ght ascension is within 1 degree on 

PRINTTABd 1 ) "dec M nation is within 2 degrees. But" 

PRINTTABd 1 ) ;"accurate right ascension and '^°'-i-!"=> 



L" 



ascension and declination" 
you can delete this grid" 
it back again if you wish, 
grid plotted and you answe 
■ ■ ' Y • " 



char 
declination" 



t^ 



PROGRAM 17A: PLNTA 



269 



?INJ A (continued) ■ 



520 PRINTTABdl )"are given for the selected planet before" 

530 PRINTTAB C1 1 >"the chart is displayed." 

540 PRINT: PRINTTABC1 1 );"If in a series of plots the selected" 

550 PRINTTABC1 1) "p lanet moves off the chart, this is indicated.' 

555 PRINT 

560 PRINTTABCI 1 )"The date printed on the chart is the first" 

570 PRINTTABd 1 ) ;"date in a series of plotted positions." 

575 PRINT 

576 PRINTTABCI 1 )"If you answer the question MOON? with 'Y'" ! 

577 PRINTTABC11)"the position of the Moon for the date" 

578 PRINTTABCI 1 )"requested is shown; ) before full raoon," 

579 PRINTTABC1 1 ) "o when close to full, and ( af t e rwa rd. " : PR INT 

580 PRINTTABd 1 ) "NOTE : If two planets are close together and" 
590 PRINTTABCI 1 >"' OTHERS ' are requested, the outer planet" 
600 PRINTTAB CI 1 >"wi 1 1 overprint the inner planet." 

610 PRINT: PRINT :PRINT 

620 INPUT"PRESS RETURN TO CONTINUE";A$ . . • - 

630 PR INTCHRSCI 2) :PRINT:PRINT:PRINT: PR INT ' : f ■ .^.. 
640 PRINT"ENTER THE DATE":PRINT " .-.[ 

650 INPUT"THE YE AR" ; YD$ : Y= V AL C Y DS ) . 

660 IFY = OTHENPRINT" INVALID E NTR Y " : PR INT : G0T0650 ... 

670 IFY>1800G0TO73O . . " 

680 PRINT"1S ";Y;" THE CORRECT YEAR?" 

690 INPUT YS .■-...-! 

700 IFY$ = "Y"THEN730 -,..".. 

710 IFY$<>"N"THENPRI NT" INVALID E NT R Y " : PR I NT : G0T0680 ,'.•.■ 
720 IFYS = "N"THENPRINT:G0TO650 .■ ■. - '' \^ 

730 PRINT:INPUT"THE MONTH" ; H D$ : M=VAL C M D$ ) "'„. 

740 IFH = 00RM>12THENPRINT"1NVALID ENT R Y " : PR I NT : GOTO730 

750 PRINT : INPUT"THE D A Y" ; DD $ : D=V A L C D D$ ) : D D=D • . . 

751 PR1NT:INPLIT"TIME ZONE";TZ 

752 PRINT:INPUT"TIME HRS";TI . '-> '.. 

753 TI=TZ+TI;IFTI>24THEN T I=T I -24 : D=D+ 1 ., ,. 
760 REM STORES INITIAL DATE IN D2,n2,Y2 ', ' •.;.,; 
770 IFF9=1THEN790 ' . ' . , ", . 
780 T2=TI:D2=D:Y2=Y:M2=M 

790 IFD = 00RD>31THENPRINT"INVALID E NT R Y " : PR I NT : GOT 075 .'_, 
800 IFM=2ANDD>29THENPRINT"1NVALID E NT R Y " : PR I NT : 60T07 SO . , . 
810 PRINT : PRINT : PRINT • ■• 

820 PRINT "Select Intervals and How Many" 
830 PRINT " Enter 1's if You Only Need One Plot" 

835 PRINT:PRINT"NOTE : Moon's Position shown for first interval" 

836 PRINT" only." 
840 PRINT:PRINT 

850 INPUT"WHAT IS TIME INTERVAL ( D A YS ) " ; T I $ : PR I NT ' . 

860 T1 = VALCTI$) : IFTI = OTHENPRINT"INVALID R E PL Y" : 60 T0850 

870 INPUT"HOW MANY I NTE R VALS" ; INS : PR I NT 

880 IN=VALC INS) : 1FIN=0THENPRINT"INVALID R E P L Y" : 60T0870 

890 REM SETS INTERVAL COUNT AT 1 

900 NC=1 

910 REM CALCULATING DAYS FROM 1960,1,1 EPOCH TO DATE _. 

920 PRINTCHR$C12) ; PRINT"PLEASE WAIT" 

930 REM FROM EPOCH 1960,1,1 . ,.-, .' , 

940 IFM>=3GOT0990 ' '^ . . _ 

950 REMCALCS IF MONTH IS JANOR FEB 
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960 

970 

980 

990 

1000 

1010 

1020 

1025 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1 150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 



DG=365*Y+D 

DG = DG + (CM->1)*31)+INTCCY-1)/4)-INT(C.75)*INT(Cy-1)/100 + 1)) 

GOT01020 

REM CALS FOR MAR THRU DEC 

DG=365*y+D+CCM-1)*31)-INTCM*.4+2.3) i 

DG=DG+INT(Y/4)-iNTCC.75)*INT{(Y/100}+1)> * 

NI=D 6- 715875 / 

NH=NI-.5 

REM JUMPS PLANETARY INPUTS IF NEW INTERVAL '- 

IFF9=1THEN169D 

REM INPUT OF PLANETARY DATA, ORBITAL PARAMETERS, ETC. 

REM JUMPS PLANETARY INPUTS IF NEW DATE ETC 

IFFL=160T01440 

IFF8=1GOT01460 

IFF6=1G0T01460 

RESTORE 

FORYP=0T08: F0RXP=0T08 

READPD( YP,XP) 

NEXTXP, YP 

REM MERCURY 

DATA. 071422, 3. 8484, .388301, 1.34041, .3871, ,079 74, 2. 73514 
DATA. 122173, .836013 
REM VENUS 

DAT A. 027962, 3. 02812, .013195, 2. 28638, .7233, .00506, 3. 85017 
DATA. 059341, 1.33168 
REM EARTH FOR SUN 

DAT A. 01 7202, 1.74022,. 032044, 1.7854 7,1,. 01 7, 3. 33 92 6 
DATA0,0 

REM MARS 

DATA.009U6,4.51234,. 175301,5.85209,1 .5237,. 141704 
D AT A1. 04656,. 03142,. 858 70 2 
REM JUPITER 

DAT A. 00 145 0,4. 53364,. 090478,. 2391 1,5. 2028,. 249374 
D AT A1. 761 88,. 01 9 72, 1.745 33 
REM SATURN 

DAT A. 000 584, 4. 89884,. 105 5 58, 1.6 1094, 9. 5385,. 5 34 156 
DAT A3. 1257,. 043633, 1.9774 58 
REM URANUS 

DATA. 000205, 2. 46615, .088593, 2. 96706, 19. 182, .901554 ' 
D AT A4. 4908 4, .01396, 1.2 88 05 
REM NEPTUNE 

DAT A. 0001 04, 3. 785 56,. 01 6965,. 7731 8 1,30. 06,. 270540 
DAT A2. 33498,. 031 4 16,2. 291 62 
REM PLUTO 

DAT A. 000069, 3. 16948,. 471 239, 3. 9 1303, 39. 44, 9. 86 
D AT A5. 23 11 4,. 300 19 7, 1.91 81 2 
F0RI9=1T09:READP$CI9>:NEXTI9 
DATAME R CUR Y, VENUS, SUN, MARS 

D AT AJUPITER, SAT URN, URANUS, NEPTUNE, PLUTO 
F = 

IF F9=2THEN1470 

FL = 

REM CALCULATE DATA FOR PLANETS 

IFF9=2THEN1690 



J 
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■ ■ r LrN 1 /\ (conun ueuj 


1500 


IFF 8=1THENF8=0:G0T01690 


1510 


PRINTCHRS(12) 


1520 


PRINT:PRINT:PRINT 


1530 


PRINT"WHICH PLANET COR THE SUN) DO YOU WANT TO DISPLAY" 


1540 


PRINT:PRINT 


1550 


PRI NT TABC10)" MERCURY Cra)...1" 


156D 


PRINTTABCIOV'VENUS CV) 2" 


1570 


PRINTTABC10)" 3 SUN ()" 


1580 


PRINTTABCIOV'MARS (M) 4" 


1590 


PRINTTABC10) " JUPITER CJ)... 5" 


1600 


PRIfJTTABC10)"SATURN CS) 6" 


1610 


PRINTTABC10)"URANUS CU) 7" 


1620 


PR1NTTABC10)"NEPTUNE CN)...8" 


16 30 


PRINTTABC10)"PLUT0 CP) 9" 


1640 


PRINT ... 


1650 


PRINT:PR1NTTABC20) : INPUT"SELECT 1 THRU 9";PS$ 


1660 


PS=VALCPSS) 


1670 


IFPS = 0ORPS>9THENPRINT"INVALID S E LE CT ION" : GOT01 6 50 


16 80 


REM STORES PLANET SELECTED IN P2 ■ '/ , • 


1690 


p2=ps . .■ . .: 


1700 


1=1 --..,"" ■; 


1710 


F0RJ = OT08:GOSUB18S0 ■."■■■, ^ , 


1720 


A(I)=A:DCI)=DS:L{I)=L '' ■.,:■.'.■■ 


1730 


1=1 + 1: NEXT ,''-:*■..,, - 


1740 


F0RI = 1T09 ■ ■. , ' , • / 


1750 


REM SKIP EARTH ' . .' . '. , .. ' '. 


1760 


IFI = 3THENNEXT . " -. .'.'..■ 


1770 


G S U B 2 3 .... 


1780 


QCI)=Q:X(I)=X:R(I)=R:V(I)=V \' .' ■' 


1790 


NEXT . ' . . ' 


1800 


F0RI = 1T09: A( I) = FNDEG(A(I) ) .' :" 


1810 


IFI=3THENNEXT . - 


1820 


NEXT . " • , 


1830 


I = PS -. ...-.-. - ■ ] - \ _' ^ 


1840 


RC3) = CA(3)-18n)/15 "' ' ' ... "..' . '. 


1850 


IFR(3)<0THENRC3)=R(3)+24 ■.■ , 


1860 


V(3)=<SINCFNRA0CAC3)-180)))*23. 44194 " . 


1870 


GOT02240 . 


1880 


REM CALCULATE A, DS AND L ., ' , . . 


1890 


REM EXPLAIN ■ • • ■ ^ . 


1900 


REM CALC HELIOCENTRIC LONGITUDE A 


1910 


A=NI*PDCJ,0) +PDCJ,1 ) 


1920 


IFA>6.28318THENA=C(A/6.28318)-INTCA/6.28318))*6.28318 


1930 


IFA<0THENA^A+6,28318:GOTO1930 


1940 


C = P0CJ,2)*SIfJCA-PDCJ,3)) 


1950 


A=A+C \' 


1960 


IFA>6.2831STHENA = A-6.2831S ' ' " 


1970 


IFA<0THENA = A + 6.28318:t.0TOl9 70 


1 980 


REM CALC DIST OF PLANET FROM SUN DS 


1990 


DS=PDCJ,4)+PDCJ,5)*SINCA-PDCJ,6)) 


2000 


REM CALC OISTAfJCE OF PLANET FROM ECLIPTIC L 


2010 


L=PD(J,7)*SINCA-PD(J,8)) 


2020 


RETURN 


2 030 


REM CALCULATE Z,Q,X,T,R,V 


2040 


REM CALC ANGULAR DIST OF PLANET FROM SUN Z 
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2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 



Z=AC3)-A(I) ' 

IFABS(Z)>3. 141 59AtJDZ<0THEN2 = Z + 6. 28318 \ ' / ' 
IFABS CZ)>5.14159ANDZ>0THENZ=Z-6.2831S 
REM CALC DIST OF PLANET FROM EARTH Q 

« = SQR(DCn-2 + &C3)"2-2*D(I)*DC3)*C0SCZ)) 

REM CALC ANGULAR DIST OF PLANET FROM SUN X 

PP=CD(I)+0C3) +Q)/2 

X = 2*FNACO(SQR(C(PP*{PP-DCI}))/'(OC3)*Q)))) 

REM CALC RIGHT ASCENSION R 

IFZ<0THENf( = FNDEGCA<3)+3.14159-X)/15 

IFZ>0THENR=FNDEG(AC3)+3.U159 + X)/15 

IFR>24THENR=R-24 : G0TO2160 

IFR<-24THENR=R+24:G0T02170 

IFR<0THENR=R+24 : G0T02180 ' ' ' 

REM CALCULATE DECLINATION V 

IFZ<0THENV=SIN(A(3)+3.14159-X)*23.44194+FNDEG( 

IFZ>0THENV=SINCAC3)+3.1415 9+X)*23.44r94+FN0EQC 

X=FNDEGCX) 

RETURN 

RA=RCPS) 

DE=VCPS) 

REM JUMPS PRINTING RA AND DEC IF NEW INTERVAL 

IFF9=1THEN2360 

I FF9 = 2THEN2360 

PRINT:PRINT:PRINT:PRINT 

RA$=STR$CRA):DE$=STR$CDE> 

RA$=LEFT$CRA$,5) : DE$=LEFT$CDES,5) 

PRINT-RA OF "/PSCPS);" IS";RA$;" DECLINATION I 

PRINT 

INPUT"PRESS RETURN TO DISPLAY PLANET ON STAR C 

REM STORES RA FOR SELECTED PLANET IN R2 

R3=RA: OC=OE 

GOSUB2380: GOT02480 

IFPS=1THENP=109:GOT024 70 

I FPS=2THENP=86:GOTO2470 ' ' 

IFPS=3THENP=132:G0TO2470 

IFPS=4THENP=77:GOT02470 

IFPS=5THENP=74:GOTO24 70 

IFPS=6THENP=83:60T02470 • 

IFPS=7THENP=8 5:G0T024 70 

IFPS=8THENP=78:GOTO2470 

IFPS = 9THENP = S0:GOTO2470 . • ' . , 

RETURN 

REM DEVELOP POKE FOR RA AND DEC ' ' ' 

IFF9=10RF5=1GOT02510 

PN = P 

REM AND SELECT CHART FOR DISPLAY BY SETTING CH 

G0SUB2560 

IF F9=1THEN6380 

IF(F7=1ANDF5=1)THENRETURN 

GO TO 2 800 ' ' : ■ ' ■ 

REM POKE FOR DEC 

DE=(DE+29)/2 

OE = INT(DE) "■ 

PDE=DE*64 



LCD) 
LCI) ) 



S ";DE 
HART"; 



!".,» 
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2600 

2610 

2620 

2630 

26/iO 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

30 60 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 



METS 



710 



RETURN 

REM IN EACH CHART POKE PL,P 

REM WHERE P IS NAME OF PLANET 

REM SUCH AS m^V,n,J,S 

PRINTCHR$C12) 

REfl POKE HORIZONTALS 

IFFK = nHENFK=0:GOT02870 

IFF9=2THEN3360 

S=2049 




OR 'N 
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F6=0: F7=0: F9=0: F8=0 



3150 IFA$<>"r"THENPRINT"INVALII) R EPL Y" : PR I NT • G0T03 1 20 
5160 REM RESET Y,M,D TO ORIGINAL SELECTION 
3170 Y=Y2:M=M2:D=D2 

3180 PRINTCHRSC12} :PRl\T:PRifjT:PRINT-60T0920 
3190 PRINTCHR$C1 2) 

3 200 PR I NT: PR I NT: PR I NT: PR I NT: PR I NT 

3210 PRINT"DO YOU WANT ANOTHER DATE FOR SAME PLANET 'Y' OR -N' 

3 2 20 PRINT: PRINT: INPUT" ";A$ 

3230 IFA$ = "N"THENPRINTCHR$C12> : PR INT : PR I NT : PR I NT : G0T03 2 70 

3240 IFA$<>"Y"THENPRINT"INVALIO R EP L Y" : PR I NT : G0T032 1 

3250 F8=1 : G0TO630 

5260 PRINT 

3270 PRINT:PRINT"D0 YOU UI^UT ANOTHER DATE AND ANOTHER PLANET" 
3280 PR I NT 

3 290 INPUT" ";A$ 

3300 IFA$="N"THENPRINTCHR$C12):G0T03350 

5310 IFAS<>"Y"THENPRINT"1NVAL1D R EP L Y" : PR I NT - GOT032 70 

3320 PRINTCHRSC 12) 

3330 FL=0:F1=0:F2=0:F3=0:F4=0:F5=0 

3340 FX=D: GOT 0630 

3 5 5 E N D 

3360 REM SELECT CHART REGION CH 

3 370 ONCHG0SUB3770,4200,45 10,4850, 521 0,5610 

3380 REM POKE OTHER PLANETS 

3590 yT$ = STR$(Yj :MTS = STR£CM) :DTS=STR$CDD) 

3400 PT$="/" 

3410 DA£=YT$+PT$+MT$+PT$+DT£ 

3420 PRINT"DATE";DA$;:PRirJT' 

3430 INPUT"OTHERS";AS 

3440 IFAf="N"TH6NF6=1 :GOT03491 • 

3450 IFA3;<>"V"GOT03430 

3460 IFAS="Y"THENF5=1 

3470 F6=0 

5480 REM SUB TO POKE OTHER PLANETS 

3490 GOSUB6010 

3491 INPUT"MOON";A$ 

3492 I FA$ = " Y"THENG0SUB7000 : 
3500 REM CHECKS IF MORE CYCLES NEEDED ' 
5510 IFNC<ING0T03540 
35 2 IFNC=>INGOT03570 

llln rn^np^?«n° INCREASE DATE BY INTERVAL AND REPEAT PROGRAH 
jj'i-U GOc)UB6280 

3550 IFF9=1THEN3510 

3560 REM RESETS F9 WHEN ALL CYCLES COMPLETED 

3580 REM RESETS NC,D,M,ANDY TO INITIAL VALUES ' 

35 90NC = 1:0 = D2:M = M2:Y=Y2 "* 

3600 PS=P2:RA=R3:DE=DC V 

3610 P=PN:PL=PX 

3620 FORK=1T0500:NEXTK ^ • . • 

3650 F0RJ=1T05: PRINT"*' 

3640 PRINT"yartt" 

3650 PRINT"Grid" 

5660 PRINT"Y/N" 

3670 PRINT:INPUTDGS 



INTERVAL";TI;"Days" 



FORK=1T0100:NEXT 
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3 68 IF(DGS = "N"ANDF9=1)THENFL = 1:F9 = 2:PS = P2:P = PfJ-GOT091U 

3690 IFF3=lANDDGS="N"THENF3=0:GOTO3110 

3700 I FFL=1 ANDDGI = "M"THErjF3 = 1 

3710 IFDGS="N"THENPRINTCHR$C12) 

37 20 IFDG$="N"THENFL=1:P5=P2:P=PN:GOT033 70 

3 72 5 IF{DG$="Y"ANDF9=1ANDFL=0)THENF9=0:GOT03 760 

3730 IF(DG$="Y"ANDF9=1 )THENFL=0:FK=1:PS=P2:P=PN: F9=2-&0T 

3740 IFFL=1ANDDG$="Y"THENFL=0:F2=1 :G0TO2S30 

3750 IF D6$<>"y"THEN3660 

3760 G0T03110 ' ' 

3770 REM CHART 1 RA AND STARS 

3780 IFFL=1THENG0T03870 

3790 RA=52:G0SUB3810 

3800 G0T03870 

3810 F0RJ=1T061STEP15 

3820 POKE(-S-957+J),RA 

3830 RA=RA-1 

3840 NEXTJ . ' ' 

3850 RETURN 

3860 REM PEGASUS ' 

3870 POKE-S-1 793,88: POKE-S-1 153,88 

3880 POKE-S-1544, 80: POKE -S -1543, 101: POKE -S-1542, 103 

3890 POKE-S-1541,97:POKE-S-1540,n5:P0KE-S-1539,117 

3900 POKE-S-1538,115 

3910 REM PLEIADES 

3920 P0KE-S-1723,46:POKE-S-1722,46:P0KE-S-1719,46 

3930 P0KE-S-1785,46:P0KE-S-1656,46 

3940 POKE-S -1655, 80: POKE -S-1654, 108: POKE -S -1653, 101 

3 950 POKE-S-165 2,1O5:POKE-S-1651,97:P0KE-S-1650,100 

3960 POKE-S-1649,101 :P0KE-S-1648,115 

3970 REM ARIES 

3980 POKE-S-1634,88:P0KE-S-1564,88:POKE-S-1499,12O 

3990 P0KE~S-1697,65:POKE-S-1696,114:POKE-S-1695 105 

4000 POKE-S-1694,101:POKE-S-1693,115 

4010 POKE-S-1133,120:POKE-S-1067,120 

4020 POKE-S-306,120 

4030REHTAURUS 

4040 POKE-S-1207,84:POKE-S-1206,97:POKE-S-1205,117 

4050 P0KE-S-1204,114:P0KE-S-1205,117:P0KE-S-1202,115 

4060 POKE-S-571,120 

4070 REM ERIDANUS 

4080 P0KE-S-458,69:POKE-S-437,114:POKE-S-436,105 

4090 POKE-S-435,100:POKE-S-434,97:POKE-S-433,110 

4100 P0KE-S-432,117:P0KE-S-431,115 

41 10 REM PISCES 

4120 POKE-S-786,80:POKE-S-785,105:P0KE-S-784,115 

4130 POKE-S-783,99:P0KE-S-782,101:POKE-S-781,115 

4140 P0KE-S-331,88:POKE-S-594,12O:P0KE-S-662,120 

4150 REM CETUS 

4160 P0KE-S-407,67:POKE-S-406,101 :POKE-S-405 116 

4170 P0KE-S-404,117:P0KE-S-403,115 

4180 POKE-S-PL,P ' ■ 

4190 RETURN ' 

4200 REM CHART2 RA AND STARS 

4210 IFFL=1GOT04250 



0910 



276 



CELESTIAL BASIC 



■PlNl A (continued) 



4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 



RA = 56 
60SUB3810 
REM ORION 

POKE-S-537,79:POKE-S-5 36,114:POKE-S-5 35,10 5 

POKE-S-534,111 :POKE-S-533,110 

P0KE-S-919,88:P0KE-S-856,88:POKE-S-793,88 

P0KE-S-1117,88:P0KE-S-1174,88 

POKE-S-60 2,88:POKE-S-65 9,88 

POKE-S-727,42 

POKE-S-1241,120 

REM SIRIUS 

POKE -5-236,11 5:POKE-S-237,117:P0KE-S-238,105 

POKE-S-239,114:POK:e-S-240, 105: POKE -S -24 1,83 

POKE-S-170,S8:POKE-S-163,120 

REM TAURUS 

P0KE-S-1416,S8:POKE-S-1 81 3,88 :P0KE-S-1 560,88 

POKE-S- 1802, 84;P0KE-S- 180 1,97: POKE -S- 1800,1 17 

P0KE-S-1799,114:POKE-S-1798,117:P0KE-S-1797,115 

REM PROCYON 

POKE-S-126r,120:P0KE-S-1 142,88 

POKE-S-1080,80:POKE-S-1079,114:POKE-S-1078,111 

P0KE-S-1077,99:P0KE-S-1 076,1 21 : POKE -S-1 075 , 1 1 1 

POKE-S-1074,1 10: POKE -S- 191 2,88 

POKE-S-1 785, 88 :P0KE-S-1 699,88: POKE-S-1 51 2,88 

POKE-S-1650,120 

POKE-S-184 2,71 : POKE -S-1 841 , 1 01 : POKE -S-1 840, 1 09 

POKE-S-1839,105:POKE-S-1838,1 10: POKE-S-1 837,105 

POKE-S-PL,P 

RETURN 

REM CHART 3 RA AND STARS 

IFFL=1GOT04630 

RA=50:RT=49 

F0RJ=1T031STEP15 

P0KEC-S-958+J),RT:POKEC-S-957+J),RA - 

RA=RA-1 

NEXT J 

RA=57 

F0RJ=46T061STEP15 

P0KE{-S-957+J),RA 

RA=RA-1 

NEXT J 

REM LEO 

POKEPL,P 

POKE-S-1 522, 76: POKE-S-1 521, 101 :POKE-S -1520, 111 

P0KE-S-1465,12O:POKE-S-1585,120:POKE-S-1457,120 

POKE-S-1 628, 120: POKE -S-1 694^ 120: POKE -S-1 635, 46 

POKE-S-1 571, 120: POKE-S-1 504, 46: POKE-S-1 31 3,88 

REM CANCER 

P0KE-S-1680,67:POKE-S-1679,97: POKE-S-1 678,1 10 
POKE-S-1 677,99: POKE-S-1 676, 101 :P0KE-S-1675,114 
POKE-S-1548,1 20: POKE-S-1 421,1 20 
REM HYDRA 

P0KE-S-795,72:P0KE-S-794,121 :POKE-S-793,100 
POKE-S-792,114:POKE-S-791,97:POKE-S-365,120 
POKE-S -1 1 64, 1 20 : POKE-S-1 166, 120: POKE -S-979, 120 
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PLNTA CconfmuedJ' 



477D 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5 000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 



POKE-S-494,97 

:P0KE-S-491,114 

:P0KE-S-373,120 




RA=57 

P0KE-S-957,50:POKE-S 

F0RJ=16T061STEP15 

P0KEC-S-9 58+J),49:P0KEC-S-957+J),RA 

RA=RA-1 

fcl t V T I - 



957+J), 

:,65:POKE-S-1401,113:POKE-S-U00,117 
',105:P0KE-S-1398,108:P0KE-S-1397,97 



N E X T J 

REM AQUILA 

POKE -S- 1402, 65: POKE-S- 

POKE-S-1399,105 
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5320 
5330 

5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
57 60 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 



POKE- 

POKE- 

POKE- 

POKE- 

REM 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

REH S 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

REM S 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

RETUR 

REM C 

1FFL = 

RA=52 

FORJ = 

POKE( 

NEXTJ 

GOSUB 

REM P 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

REM D 

POKE- 

POKE- 

POKE- 

POKE- 

POKE- 

REM 

POKE- 

POKE- 

POKE- 

POKE- 

REM A 

POKE- 



1454, 

1334, 

1271, 

1268, 

lUCUS 

1501, 

1498, 

1495, 

1749, 

924,1 

ITTAR 

120,8 

117,1 

114,9 

111,1 

303,1 

46,12 

31,12 

RPIO 

330,8 

327,1 

324,1 

322,1 

134,1 

81,65 

78,97 

75,11 

PL,P 



120:P0K 
120:P0K 
65;POKE 
97: POKE 

79:P0KE 

105 :POK 

117: POK 

120:P0K 

20 

lUS 

3:P0KE- 

05:P0KE 

7:P0KE- 

17:P0KE 

20:P0KE 

0:POKE- 



3: POKE- 

14:P0KE 

11 

20:P0KE 

20:POKE 

:POKE-S 

: POKE-S 

5 



E-S-1391,120 

E-S-1273,88:P0KE-S-1210,120 
-S-1270,108:P0KE-S-1 26 9,1 16 
-S- 1 267, 105: POKE -S-1 266, 114 

-S-1 500,11 2 :P0KE-S-1499,104 

E-S-1497,117:P0KE-S-1496,99 

E-s-U94,115 

E -S-1 305, 120: POKE-S -986, 120 



S-1 19, 97: POKE-S- 11 8, 103 

-S-116,116:P0KE-S-115,116 

S-1 13,114:P0KE-S-1 12,105 

-S-110,115 

-S-1 72, 120: POKE-S- 169, 120 

S-228,12O:POKE-S-100,120 



S-329,99:P0KE-S-328,111 
-S-326,112:POKE-S-325,105 

-S-1 93,88: POKE -S-1 2 9,88 
-S-72,«8:POKE-S-10,120 
-80,110:POKE-S-79,116 
-77,114:P0KE-S-76,101 



RT 6 FOR RA AND STARS 

0TO5680 

T = 50 

061STEP15 

-958+J),RT 



3810 

EGASUS 

S-1721 

S-1718 

S-1715 

S-1839 

S-1322 

ELPHIN 

S-1552 

S-1549 

S-1546 

S-1488 

S-1421 

FOMALH 

S-180, 

S-177, 

S-174, 

S-111, 

QUARIU 

S-997, 



,80:POKE- 

,97:P0KE- 

,115 

,1 20:POKE 

,120:POKE 

US 

,68: POKE- 

,112:P0KE 

,1 1 0:POKE 

,46: POKE- 

,46: POKE- 

AUT 

70: POKE-S 

97: POKE-S 

97: POKE-S 

88 

S 

65:P0KE-S 



S- 1 720, 1 01 : POKE -S-1 71 9, 103 
S-1717, 115: POKE-S -1716, 117 

-S-1455,120:POKE-S-1897,120 
-S -1185, 120: POKE-S -1245, 120 

S-1551, 101 :POKE-S -1550, 108 
-S -1548, 104: POKE-S -1547, 105 
-S-154 5,117:P0KE-S-1544,115 
S-1486, 46: POKE-S -1423, 46 
S-1293,46 

-179,111 :POKE-S- 178, 109 
-176,108: POKE-S -175, 104 
-173,117:P0KE-S-172,116 



-996,113:P0KE-S-99 5,117 
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5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 

5 9 80 
5990 
6000 
6010 
6020 
6025 

6 30 
6035 
6040 
6 050 
6060 
6070 
6080 
6090 
6100 

61 10 
6120 
6130 
6135 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6205 
6210 
6 2 20 

62 2 5 
6226 
6230 
6 240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 




RETURN 

REM SUBROUTINE TO 

PN = P 

0P = 1 

F0RI=1 T09 

IF I=P2THI 

DC— T • c"; = i 




THROUGH THIS TABL 



E ONCE 



0P=0 

REM 

GOSU 



REM GET . . 
G0SUB2380 
RA = R C I) : Di 



9999)THEN6220 
T SYMBOL 



DE = V{ I) 



REM GET POKE FOR PLANET 

GOSUB2560 

IFF7=1THENF7=0:60T06210 

POKE-S-PL,P 

0P = 

F 4 = 1 

NEXTI 

IF0P=1THENPRINT"NONE":0P=0 

OP=0 

PS = P2 

P=PN 

R A=r3: 



P=PN 

R A=R3: DE=DC 

F4=^0: F5=0: F = 1 : RETURN 

REM INCREASES COUNTEI 

N C ^ N C + 1 



ER BY ONE 



PS = P2 

F9=1 

D=D+TI 

REM INCREMENTS DATE 

IFD>30THEND = D-30:ri = M + 1:GOTl 

I FM>1 2THErjM = r'!-l2: y = y+i 

REM GOES THROUGH PROGRAM Ai 



06330 
AGAIN FOR NEW DATE 
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6360 GOT0930 

6370 REM POKE THE PLANET'S NEW POSITION 

6380 IFF7=lTHENF7=0:GOTO6400 

6390 POKE-S-PL,P 

6400 REM POKES THE OTHER PLANETS ON NEW DATE 

6410 IFF6=1THEN6430 

6420 F9=0:GOSUB6010 

6430 REM GOES BACK AND REPEATS IF STILL HORE INTERVALS 

6440 F9=1 

6450 RETURN 

6470 IFRA>20ANDRA<23.9999THENRA=RA-20:RETURN 

6480 IFRA>16ANDRA<19.9999THENRA=RA-16:RETURN 

6490 IFRA>12ANDRA<15.9999THENRA=RA-12:RETURN 

6500 I FRA>8ANDRA<11.9999THENRA=RA-8: RETURN 

6510 IFRA>4ANDRA<7.9999THENRA=RA-4:RETURN 

6520 RETURN 

6530 ONCHGOT06540,6560,6580,6600,6620,6640 

6540 IFRA>3.9999GOT06680 

6550 RETURN 

6560 IFRA<40RRA>7.9999G0T06680 

6570 RETURN ... . ! 

6580 IFRA<8ORRA>11.9999GOTO6680 ' ' 
6590 RETURN 

6600 IFRA<12ORRA>15.9999G0TO6680 ' ■' 

6610 RETURN 

6620 IFRA<160RRA>19.999960T06680 
6630 RETURN 

6640 IFRA<200RRA>23.999960T06680 

6650 RETURN 

6660 IFF7=1THEN6700 - 

6670 RETURN 

6680 F7=1:G0T06690 

6690 PRINTP$(PS) 

6700 PRINT"OFF" . ' . 

6710 PRINT"CHART" 

6720 RETURN 

7000 REM TO POKE MOON ON CHART 

7005 REM LONG OF MOON 

7010 LZ=311.1687 

7015 LE=178.699 

7016 LP=255.7433:PG=.11U04*NM+LP 

7017 IFPG<-360THENPG=PG+360;GOTO7017 

7018 IFPG<0THENPG=PG+360 

701 9 I FPG>36CTHENPG=PG-360: 60T0701 9 

7020 LMD=LZ+360*NM/27. 32158 

7021 PG=LHD-PG 

7022 DR=6.28S6*SIN(FNRAC(PG)) 

7023 LKD=LMD+DR 

7025 IFLMD<-36D0THENLMD=LMD+3600:G0TO7025 

7026 IFLMD<-360THEN LM[)=LMD+360:G0T07026 
7030 IFLMD<OTHENLMD=LMD+360:GOT07030 
7035 IFLHO>36D0THENLMD=LMD-36OO:G0T07035 
7040 IFLMD>360THENLI1D=LMD-36C:G0T07040 
7050 RH=LMD/15 

7055 RQ=RK 
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7060 IF RM>2'tTHENRM=RM-24:60T07060 
707C IFRM<0THENRM=RM+24 
rOBD AL=LE-NM*. 052954 

7085 IFAL<-3600THENAL=AL+3600:GOT07085 

7086 IFAL<-360THENAL=AL+360:GOT07086 
7090 IF AL<CTHENAL=AL+360:GOTO7090 
7095 IFAL>3600THENAL=AL-3600:GOT07095 
7100 IF AL>360THENAL=AL-360;GOT07100 

7106 AL=LMD-AL 

7107 IFAL<0THENAL=AL+360 

7108 IFAL>360THENAL=AL-360 

7110 HE=5.1333*SIN(AL*3. 141 59/180) 
7120 DM=HE+23.1444*SINCLMD*3. 141 59/180) 
7130 DM=(DM+29)/2:DM=INTCDM):PDE=DM*64 
7220 IFCH=2THENR2=4:G0TO7270 
7230 IFCH=3THENR2=8:GOT07270 
7240 IFCH=4THENR2=12:G0T07270 
7250 IFCH=5THENR2=16:G0T07270 
7260 IFCH=6THENR2=20 

7270 IFRM<R20RRM>CR2+3.9999)THEN 7290 

7271 G0SLIB7310:RM=RM*15 

7272 IFCRH-INT(RM))>.49THENRM=INTCRH)+1:GOT07274 

7273 RM=INT(RM) 

7274 PM=RM+PDE 

7275 G0SUB75DD 
7280 POKE-S-PM,MS 
7285 RETURN 

7290 PRINT"OFF":PRINT"CHART":RETURN 

7310 IFRM>20A^DRM<23.9999THENRM=RM-20:RETURN 

7320 IFRM>16ANDRM<19.9999THENRM=RR-16:RETURN 

7330 IFRM>12ANDRM<15.9999THENRH=RH-12:RETURN 

7340 IFRM>eANDRM<11.9999THENRW=RM-g:RETURN 

7350 I FRP'.>4ANDRM<7.9999THENRM=RM-4: RETURN 

7360 RETURN 

7500 RZ=R(3> 

7510 OZ=RZ-RQ 

7515 IF[>Z<DTHENDZ=D2+24 

7520 IF0Z>11ANDDZ<13THENMS=111:RETURN 

7540 IFDZ>13THENMS=41:RETURN 

7550 MS=40 - 

7560 RETURN 



tS^' 




Photo Credit: NASA/jet Prupuliion Liboratory 

A man-made meteor, the probe of Project Galileo is 
planned to penetrate into the deep atmosphere of 
}upiter in the mid-1980s. This ambitious mission will 



explore thoroughly the environment of the giant 
planet of our solar system and obtain closer looks at 
its larger satellites over a period of several years. 
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Program 20A: 

3TARA 



Alternative Meteor Shower Program. 



This alternative program for depicting meteor showers was written for an 
Exidy Sorcerer computer and makes use of POKE statements to randomly 
display meteors originating from the radiant before identifying the radiant. 

As with Program 20, this alternative asks you to select any month and 
then provides the details of any annual meteor shower expected during 
that month. If you use PHASE with this program you will be able to find out 
whether or not observations of the meteor shower will be affected by a 
bright Moon (between full and last quarter). The program graphically 
displays first the meteors and then the radiant for the shower among the 
stars of the constellations for any selected month. It provides details of 
each meteor shower and names constellations. A typical display of this 
program is shown in Figure 20A.1. 

For other computers, PRINT @ statements can be used to position the 
stars instead of the PRINT and TAB instructions used for the Sorcerer. The 
POKE statements also will have to be changed to suit your screen memory 
area in displaying the meteors coming from the radiant, as well as the ra- 
diant itself. In this program version, MS is the POKE location of the middle 
of the screen. 

The listing of the SSTARA program follows. 
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Ctfgnus Lyra 



X Vega 



/ X 



X Altair 



Ophiuchus 

X 



HercuUs 



In this alternative version of Program 20, meteors flash across the screen from the radiant 
before identifying the radiant 

Figure 20A. 7 ■ 
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SSTARA 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

355 

357 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 



METEORS 



,R. A.S 



RINTCHR${12) 
RINT:PRIM :PRINT 

RINTTABCI D" 

ftlNTTABdl )" I 

R I NTT ABC 11 )" 

RINT:PRINT:PRINT 

RINTTABCI 5>"An Astronomy Program" 

RINT:PRINTTABC14)"By ERIC BURGESS F 

RINT:PRINT:PRINT: 

PRINTTABC14)"AL L Rights Reserved by" 

PR1NTTABC1 4)"S & J Software Service" 

PRINT:PRINT:PRINT 

PRINTTAB(8)"Thi s program provides particulars of" 

PRINTTAB C8)"Annua L Meteor Showers for Any Month" 

FOR K=1T02000:NEXTK 

PRINTCHR$C12) :PRINT:PRINT:PRINT:PRINT 

INPUT"SELECT MONTH (1 THROUGH 12)";M 

PRINT 

IFM<10RM>12THENPRINT:PRINT"InvaLid Request": PRINT :G 

PRINTCHR$C12) :PRINT 

M2=M _ . : • 

IFM2=1THENH$="JANUARY" :G0TO340 

IFM2=2THENM$=" FEBRUARY" :G0T05 10 

1FM2=3THENM$="MARCH":G0T0550 

IFM2 = 4THENM$ = "APRIL":GOT0570 . .; . '.:' > 

I FM2 = 5THENM$ = "MAY" :GOT0810 '• .f' ' " 

IFM2 = 6THENM$ = "JUNE":GOT01030 " • .- • 

IFM2 = 7THENM$ = "JULY" :60T01 250 ;' i ; 

I FM2 = 8THENM$ = " AUGUST" : G0T01 470 ..','..',■"''. \-'J' 

IFM2 = 9THENM$ = "SEPTEMBER" : GOTOl 450 . - J '"' '■'■ "'' 

IFM2=10THENM$="OCT0BER":GOTO1650 

IFM2=11THENn$="NOVEMBER":60T0l870 

I FH2 = 12THENM$ = " DECEMBER": GOTO 2 500 

PRINT"FOR THE MONTH OF ";M$;" THE METEOR SHOWER IS: 

PRINT "THE QUANDRANTIOS" 

PRINT"MAX ON 6th JAN. 40 PER HOUR, 

PRINT"GOOD ANNUAL S HOWE R" : PR I NT 

PRINTTABC2) " ." 

PRINTTABC47)"." 

PRINTTAB{10)".";TABC18)"Draco" 

PRINT:PRINTTA8(24)"." 

PRINTTAB(16)"x":PRINTTAB{54) "Ursa": PRINTTAB (53) "Maj 

PRINTTABC63)"X": PRINT :PR INT :PRINT:PR INT 

PR1NTTAB(31 ) 

PRINTTAB(38> 

PRINTTAB(27)"x 

PRINTTABC42)". 

PRINTTABC25)" . 

PRINTTABC24) "x 

PRINTTAB(42>"X 

G0SUB3650 

G0T03600 

PRINT"DURING THE MONTH OF ";M$;" THERE IS NO MAJOR' 

PRINT:PRINT" ANNUAL METEOR SHOWER" 



0TO1 80 



RADIANT 15.5 R. A,, 50 DEC 



X" 



PRINT 

TAB C40) "Bootes" 



s< 



'; TAB (41 )".": PR1NTTAB( 14) "Corona" 
';TAB(36>"X":PRINT 
Arcturus" 
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PRINT 



ALtair";TABC31)"0phiiJchus" 
. PRINTTABC4)".":PRINTTABC34)"x" 



5 30 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

540 G0T0360O 

550 PRINT"DURIN6 THE MONTH OF ";H$;" THERE IS NO MAJOR" 

560 GOT0520 

570 PRINT"FOR THE MONTH OF ";M$;" THE METEOR SHOWER IS: 

580 PRINT"THE LYRIDS" 

590 PRINT"20-22, MAX 21st. 12 PER HOUR, RADIANT 18 R.A. 

600 PRINT"GOOD ANNUAL SHOWER" 

610 PRINT:PRINT 

620 PRINTTAB(35)"x";TABC54)"x" 

630 PRINTTABC4)"X" : PRINT 

640 PRINTTABC51 )"x" 

650 PRINTTAB(45r'x" 

660 PRINTTABC23)"X Vega" 

670 PRINTTAB(4) "Cygnus";TAB(1 7)" Lyra ";TAB(45>" Hercules" 

680 PRINT:PRINTTAB(1 9^"x x " ; T AB (46 ) " X " ; T AB C 50) "x " 

690 PRINT:PRINT 

700 PRINTTAeC10)"x";TAB(35)"x" 

710 PRINTTA8C44)"x 

720 PRINTTAB(55)"x 

730 PRINTTAB(57)". 

740 PRINTTAB(45)"x 

750 PRINTTAB(39)"X 

760 PRINTTABC7)"x" 

770 PRINTTABC5)"X 

780 PRINTTABC35)"x 

790 G0SUB3650 

800 G0T03600 

810 PRINT"FOR THE MONTH OF ";M$;" THE METEOR SHOWER IS:"; 

820 PRINT"THE ETA AQUARIDS" 

830 PRINT"4-13, MAX ON 6th, RADIANT AT 22.54 R.A 

840 PRINT "WEAK DISPLAY" 

850 PRINT:PRINT:PRINTTAB(9)"Pegasus" • . 

860 PRINTTABC45)"De Lphi nus" 

8 70 PRINTTABC54)".";TAB(56)"." 

880 PRINTTAB(3)"X";TABC21>"X";TAB(55)".";TAB(57)"." 
890 PRINTTAB(27)".";TAB(42V'x";TABC48)"..";TAB{60)"." 
900 PR INTTAB (36)"."; TAB (4 7)".": PRINT: PR INT 

910 PRINT :PRINTTABC29)"x";TAB(36)"x" 

920 PRINTTABC27)"x";TAB(32)"." 

930 PRINTTAB(42)"Aquarius" : PRINT 

940 PR1NTTAB(45)"X":PRINT:PRINT 

950 PR1NTTAB(56)" ."rPRINT 

960 PRINTTAB(24)".";TAB(62)"x" 

9 70 PRINTTAB(23)".";TA6(41)"x";TAB(43)".";TAB(47>"."; 
980 PRINTTAB(51)"." 

990 PRINT :PRINTTAB(43) "Capri cornus" ... 

1000 PRINT ' 

1010 G0SU83650 

1020 GOT03600 

1030 PRINT:PRINT:PRINT 

1040 PRINT"FOR THE MONTH OF JUNE THERE ARE TWO SHOWERS;" 

1050 PRINT:PRINT:PRINT 

1060 PRINT: PR INTTAB(5) "THE LYRIDS" 



33 DEC. 



DEC. 



PRINT 



'? 
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SSTARA (continued)- 



1070 
10 80 
1090 
1100 
1110 
1 120 
1130 
1 140 
1 150 
1 160 
1 170 
1180 
1190 
1200 
1210 
1 220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
14 00 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1 560 
1570 
1580 
1 590 
1600 



PRINT:PRINT"JUNE 10-21, MAX ON 15th, BLUISH METEORS"; 

PRINT" AVERAGING 8 PER HOUR" 

PRINT : PRINT : PR INTTAB(8>" AND" 

PRINT : PRINT : PRINTTAB(5)"THE OPHIUCIDS" ,■ 

PRINT :PRINT"JUNE 17-26, MAX ON 19th"; • . •- ,■ 

PRINT" AVERAGING 6 PER HOUR" 

PR I NT: PR I NT: PR I NT • .. . ■ ' 

PRINT:PRINT:PRINT"PLEASE SELECT LYRIDS (1)" r ■ • ■' 

PRINT" OR OPHIUCIDS C2)" 

PRINT : INPUTAI 

JS = VAL(A$) : I FJS<10RJS>2THENPRINT" INVALID SELECTION" :60T01 140 

IFJS=1THENG0SUB3070:GOTO120O 

If JS = 2THENG0SUB3340 : . ■.• 

INPUT"DO YOU WANT TO SEE THE OTHER SHOWER y/N";AS 

PRINTCHR$C12) 

IFA$ = "Y"ANDJS = 1THENGOSUB3340:GOT01 240 .. " ' -. 

IFA$="Y"ANDJS=2THENG0SUB3O7O . .' - ^; 

GOT05600 ...-■ ;. 

PRINT"F0R THE MONTH OF ";M$;" THE METEOR SHOWER IS"; * •- 

PRINT" THE DELTA AQUARIDS" 

PRINT" JUL. 25 -AUG 4^ MAX JUL. 28th. R,A. 2 2.8 DEC. -16" •■ -; 

PRINT"OIFFUSE SHOWER" .--■. ... 

PRINT . , - ..: , . -f •• - .. 

PRINTTABC25)".";TABC29)".";TAB(42)"x" ■, ■..•'•' . ' ,- _ -., ;; 

PR INT: PR I NTT ABC 34 v. . " ; T AB C 4 2 ) " x " .-. ,.. -. ■■ ■; ' 

PR I NTT AB( 39)".": PR I NT ' • ■ , :.:::•• : I 

PRINTTAB(52)"x":PRINTTAB(29>"." '.■>..,. J. 

PRINTTAB(9)" .";TABC63)". " .• : ' ■• 

PRINTTAB (44) "Aquarius" • •, .- ■• ; • 

PRINTTAB(30>"." •■ , ; 

PRINTTABC28) 

PRINT" x" 

PRINTTABC51 ) 

PRINTTABC62) 



;TABC45)"x";TABC49)".";TABC57)" 



:PRINTTABC53)".": PRINT • • 

: PRINT :PR INTTAB(31 r'X" : PRINT . - ■• 

PRINTTABC23)"FomaLhaut" ■ . .- ■ 

PRINTTABC43)"x" : PRINT :PR1NT:PRINTTABC 5) "x" . .> 

G0SUB3650 

GOT03600 

PRINT"DURING THE MONTH OF ";M$;" THERE IS NO MAJOR" 

GOTO520 

PRINT" FOR THE MONTH OF ";M$;" THE METEOR SHOWER IS"; 

PRINT" THE PERSEIDS" 

PRINT"4-16, MAX 12th, 50 PER HOUR, 3.0 R.A., 58 DEC. 

PRINT"A MAJOR SPECTACULAR SHOWER" 

PRINT: PRINT: PRINT:PRINT:PRINTTAB(18)".";TAB(48)"." 

PRINT TAB U8)".":PRINTTAB(47) "Cassiopeia" 

PRINT:PRINTTABC18)".";TAB(52>"X" 

PRINT : PRINTTAB (2) "x"; TAB (60) "X" 

PRINT:PRINTTABC32)".";TAB(38)"Perseus" 



PR1NTTAB<29)' 
PRINTTAB(25)' 
PRINTTAB(21)' 
PR1NTTAB(48)' 
PRINTTAB(29)' 



:PRINTTABC31 )"." 
;TABC28)"," 
: PRINT : PRINT 

:PRINTTA8C17)"X";TAB(29)"X" 
; TAB (45) "Andromeda" 
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SSTARAfcont/nuec/)- 



1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1 690 

1700 

1710 

1 720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1«30 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 



PRINT:PRINTTAB(47)"x";TAB(63)"X" 

PRINT 

G0SUB3650 

GOT03600 

PRirJT"FOR THE MONTH OF ■•;n$;" THE METEOR SHOWER 1 S " ; 

PRINT" THE ORIONIDS" 

PRINT"16-26, MAX 21st. 30 PER HOUR, 6.4 R.A., 15 DEC 

PRINT"SLOW METEORS WITH PERSISTENT TRAILS" 

PR INTTAB(41 )"X Auriga" 

PRINTTABC15)"X Geniini";TABC57)"X" 

PRINT:PRlNTTAB(12)"X";TAB{51)"x" 

PR1NTTAB(28)".";PRINT 

PRINT TABC18)".";TABC35)"x";TABC38)"," 

PRINTTABC23)".";TABC34)".";TAB(46>"x" 

PRlNT:PRINTTABC20)".";TAB(30)"x" 

PRINTTABC61 )"X":PRINTTABC28)"." 

PRINT:PRINTTABC5>".";TABC20)"x";TABC47>"," 

PRINTTABC40)"X";TABC50)"X" 

PRINTTABC14)"X" 

PRINTTABC10)"Procyon";TAB(47)"0rion" 

PRINT: PR I NTT AB (47)" X" 

PRINTTABC45)"X" :PRINTTABC43)"X";TABC50)"." 

PRINTTABC46)":":PRINTTAB(14)".";TABC50)"X" 

PRINTTAB<42)"x" 

G0SUB3650 

GOT03600 

PRINT;PRINT : PRINT 

PRINT"FOR THE MONTH OF ";M$; 

PRINT:PRINT:PRINT 

PRINT:PRINTTABC5)"THE TAURIDS" 

PRINT:PRINT"OCT 20 - NOV 30, MAX ON 8 NOV. SLOW METEORS' 

PRINT"W1TH SCATTERED FIREBALLS, AVERAGE 12 PER HOUR" 

PRINT:PRINT:PRINTTABC8)"AND" 

PRINT:PRINT:PRINTTABC5)"THE LEONIDS" 

PRINT:PRINT"NOV. 15-19, MAX ON 17th," 

PRINT"AVERAGIN6 10 PER HOUR" 

PRINT:PRINT ' " 

PRINT:PRINT;PR1NT"PLEASE SELECT TAURIDS (1)" 

PRINT" OR LEONIDS (2)" 

PRINT : INPUTAS 

JS=VALCA$) 

IFJS<10RJS> 27 HENPRINT" INVALID S E LE CT ION" : GOTO 1 980 

IFJS=1THENeOSUB2100:60TO2050 

IFJ S = 2THENG0SUB2330 

INPUT"DO VOU WANT TO SEE THE OTHER SHOWER Y/N";AS 

PRINTCHR$(12) 

IFAS="Y"ANDJS=1THENGOSUB233O:G0T0209Q 

IFA$="Y"ANDJS=2THENG0SUB2100 

G0TO3600 

REM NOV TAURIDS 

PRINTCHR$C12) 

PRINT"FIRST SHOWER FOR MONTH OF ";MS;" IS"; 

PRINT" THE TAURIDS" 

PRINT"FROM OCT 20 - NOV 30, MAX 8th, 12 PER HOUR WITH" 

PRINT"TWO RADIANTS 3.73 R,A., 14 AND 22 DEC. 



THERE ARE TWO SHOWERS;" 



.^ 
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■SSTARA (continued)- 



2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2230 

2290 

2300 

2310 

2320 

2330 

2340 

2550 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2 7 00 



PRINT"SCATTERED FIREBALLS, SLOW" 
PRINT:PRINTTABC58)"X" 



PRINTTABCIO)", 
PRINTTAB(42)", 
PR1NTTAEC29)" , 
PRINTTABC14r', 
PRINTTABC7)"x' 
PRINTTAeC31)", 
PRINTTABC2)"x' 



PRINTTABC30)".";TAB(42)"x" 



: PRIMTTAaC56) "x" 

;TAB(29r'x . " ;TAB (60) " . " 

PRINT :PR INT 

:";TAB(58)"x" 

T A B C 1 2 > " T a u r u s " ; T A B ( 2 1 > " . " ; 
PRINTTAB(52)"Ar-ies" :PRINTTAB(60) " ." • 
PRINTTAB(18)"X";TAB(22)"." 

PR INTTABC20) ". . " . • 

PRINTTABC27)".":PRINTTABC2)".";TAB<35)"." 
PRINTTAB(5)"x";TAB<36)"." 

PRIMTAB(42)"x";TABC57)".":PRINT:PRINTTABC2)"x" . 
PR I NT: PR I NT: PR I NT 

G0SUB3650:TF = 1 :G0SUB36 50:RETURN ■ ■ 

REM NOV LEONIDS 

PRINTCHRS(12) 

PRINT"SECON[) SHOWER FOR MONTH OF ";M$;" IS"; 

PRINT" THE LEONI&S" 

PRINT"I>EC. 15-19, MAX ON 17th., 10 PER HOUR" 

PRINT"R.A. 10.13, DEC 22, SWIFT METEORS" 

PR I NTT AB( 32)",": PR I NTT ABC 30)".": PR I NT: PR I NT: PR INT 

PRINTTAB(15)",";TABC22)".":PRINTTABC19)"." 

PRINT:PR1NTTABC36)"." :PRINTTABC30)",";TAB(38)"x" 

PRINT:PRINTTABC29)"x":PRINTTABC15)"x" 



;TABC15)"X";TABC2D)"Leo' 



PRINT 



THERE ARE TWO SHOWERS;" 



PRINTTABC32)"." :PRINTTABC6)"X' 

PRINTTAB(32)"X ReguLus" 

PRINTTABC12)".";TA8C40)"." 

PRINTTABC7)".";TABC52)"x 

PRINTTABC57)".":PRIf'|TTAB(6)".' 

PRIFJT:PRINT:PRINT 

60SUB3650:RETURN 

PRINT: PRINT : PRINT 

PRINT" FOR THE MONTH OF ";nS;" 

PRINT: PRINT :PRINT 

PRINT:PRINTTABC5)"THE GEMINIDS" 

PRINT:PRINT"9-12, MAX ON 13th. SWIFT BRIGHT METEORS" 

PRINT"WITH SOME FIREBALLS, AVERAGE 60 PER HOUR" 

PRINT;PRINT:PRINTTAB(8)"AN0" 

PRINT :PRINT:PRINTTABC5)" THE URSIDS" ■ • 

PRINT:PRINT"17-24, MAX ON 22nd. WEAK DISPLAY" 

PR INT"AVERAGE 5 PER HOUR" 

PRINT : PRINT 

PRINT:PRINT:PRINT"PLEASE SELECT GEMINIDS (1)" 

PRINT" OR URSIDS C2)" 

PRINT: INPUTAS: JS = VAL(A$) 

I FJ S=1THENG0SUB2710:G0T02660 ■-, 

IFJ S = 2THENG0SUB2880 

INPUT"DO YOU WANT TO SEE THE OTHER SHOWER y/N";A$ 

PRINTCHR$C12) 

I FA$="Y"ANDJ S=1THENGOSUB2880: G0TO27O0 

IFA$="Y"ANDJS=2THENG0SUB2710 

GOT03600 
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■SSTARA (continued)- 



2710 

2720 

2730 

27^0 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

293-0 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 



PRINTTABC30)"." 
PRINTTAB(40)" ." 
PRINTTAB<48)"x" 
PRINTTABC47)" 



'X Procyon" 



IS' 



REMDECGEMINIDS 

PRINTCHRSC12) 

PRINT"FIRST SHOWER FOR MONTH OF ";«$;" IS"; 

PRINT" THE GEMINIDS" 

PRINT"FROH BEC 9-24, MAX OK 13th, 60 PER HOUR, SWIFT 

PRINT"BRIGHT METEORS, 7.46 R.A., 32 DEC." 

PRINT : PRINT: PR INTTABC9>".";TAB (45) "Auriga" 

PRINTTABC7)".":PRINTTAB(55)"x":PRINT 

PR1NT:PRINTTAB(58)".":PRINTTABC55)"." 

PRINT:PRINTTABC34)"x":PRINTTABC41>"." 

PRINTTABC12)".":PRINTTAB(30)"x";TAB(4 5r'." 

PRINTTABM3)".";TAB{36)"x";TABC52)"x 

PRINTTABC11)".";TABC37)"Gemin-t" 

PRINT 

PRINTTAB(61)":" 
PRINTTAB(35)"x";TABC58>"X":PRINTTAB{31)' 

G0SUB365O:RETURN 
REM DEC URSIDS 

PRINTCHR$C12) 

PRINT"SEC0ND SHOWER FOR MONTH OF ";MS;" 

PRINT" THE URSIDS" 

PRINT"FROM DEC 17-24, MAX ON 22nd., 5 PER HOUR" 

PRINT"FAINT MEDIUM SPEED METEORS, 14.46 R.A., 78 DEC." 

PRINT:PRINT:PRINTTAB<22)"PoLaris";TAB(32)"x" 

PR INT : PR I NTT AB( 28)".": PR I NT: PR INT: PR INT 

PRINTTAB(24)".":PRINT 

PR INTT ABC 58)".": PR INT: PR INT 

PRINTTAB(12)"Ursa";TAB<26>".";TAB(51)"." 

PRINTTABd 1 >"Mi nor" " 

PRINTTABC22)".";TAB(28)"x":PRINT 

PRINTTABC26)"x";TAB(42)"Draco" 

PRINT:PRINTTAB{2)"x":PRlNT:PRINT 

PRINTTAB{37)".":PRINTTAB(10)"x":PRINT 

PRINTTABC14)"x";TAB(22)"x" 

GOSUB3650 ' 

RETURN " 

REM JUNE LYRIDS : ' 

PRINTCHR$n2) 

PRINT"FIRST SHOWER FOR MONTH OF ";M$;" IS"; 

PRINT" THE LYRIDS" 

PRINT"FROM 10-20, MAX 15th. 8 PER HOUR"; 

PRINT" RADIANT 18.3 R.A., 35 DEC." 

PRINT"BLUISH METEORS" 

PRINT:PRINTTABC43) "Draco" 

PRINTTABC44)"X" 

PR I NTT AB ( 37) "X": PR I NT: PR I NT 

PRINTTABC62)"x" 

PRINTTABC8)"X";TAB(43)"x":PRINT 

PRlNTTABC2)"X";TABC57)"x" 

PRINTTAB(18)"Vega";TABC25)"X"; 

PRINTTABC50)"X":PRINT:PRINT 

PRINTTAB(21 ) "x x";TABC52)"x x" 

PR I NTT AB (4 )"Cy gnus"; TAB (49) "Hercules" 

PRINTTAB(13)"X" 

PRINTTAB(51 )"x" :PRINT 
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■SSTARA (continued) ■ 



3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
34 80 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
5690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 



PRINTTAB(62)"x":PRlNT:PRINT 

PRINTTA8C24)"." 

PRINTTABC22)"x";TABC50)"x" 

PRlNTTAB(45>"x" 

PRINTTAB(11)"x";TAB(43)"0phiucbus" 

PRINTTAB(9)"X";TAeC12)"Alta7r" 

G0SUB3650 

RETORN 

REM JUNE OPHIUCIDS 

PRINTCHRS(12) 

PRINT"SECOND SHOUER FOR MONTH OF ";M$;" IS"; 

PRINT" THE OPHIUCIDS" 

PR1NT"FR0M 17-26, MAX 19th, 6 PER HOUR"; 

PRINT" RADIANT 17.3 R.A. -20 DEC." 

PRINTTABC25)"x";TAB(45)"." '" • 

PRINTTABC20)"0phiuchus" ' .-. ..■ 

PR INTTAB{4) " . ";TAB C 50) "x"; ... 

":PRINTTAB(5)".." 
;TAB{45)"." 
";TAB(22)".";TABC42)' 



'x";TAB(60) "x' 



PRINTTAB(56) 

PRINTTAB(7)" 

PRINTTABC11 ) 

PRINT:PRINT 

PRINTTAB(27)".";TABC33)"x":PRINT .., '. 

PRINT:PRINTTABC2)"x";TAB(50)"x":PRINT .. .„ . , ■ l-: 

PRINTTABCI 4)"x";TAB(51 )"x" ■.■ : --; .,v 

PRINTTABC5)"x";TABC46)"x" . < i .,'[ .: 

PRINTTABC43)"X";TABC51)"x" • •: • ••. 

PRINTTAB(3)"x";TABC15)"x";TAB(20)"x";TABC42)"x" 

PRINT:PRINTTAB(5)"Sagi ttarius" ..-•: 

PRINTTABC14)"x";TAB(38)"x" •; 

PRINTTABt17)"x";TABC24)".";TABC27)"xx" ;•. 

PR INTTAB (24) "x";TAB (38) ;TABC43> "Scorpio" 

PRINT:PRINTTAB(37)"." ...■ .;■.•■: 

60SUB3650 : . > . 

RETURN : ,-, , " 

INPUT"Do you want another Month Y/M";A$ 

IFAS="Y"THEN160 

IF A$<>"N"THEN PR INT" In va L i d Res pon se" : PR INT : GOT03600 

PRINT CHR$(12) 

END • -i^- , - 

FORH=1T01000:NEXT 

REM PRINT METEORS . ' . • • • • 

N = 

R = -1 

IF M$="N0VEMBER"ANDTF=1TMENMS=-2722:TF=0:G0T03710 

MS=-2978 

IFN=20THEN4290 

R=R-1 -. : 

G0SUB3770 .... 

FOR G=1T0C*1OO:NEXT • ' r 

N = N + 1 , 

GOT03710 ■ • • ...... 

REM PICK A METEOR 

A = RND(R) ■ - 

C=INT(7*RND(A)+1) 

B=INT(9*RND(A) +1) 
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■ SSJARA (continued)- 



3810 0NBG0T03980, 38 20, 3930, 4090, 4040, 41 40,4240,3870 

3820 F0RJ=5T014 

3830 POKE MS+65*J^172:POKE MS +6 5* < J +1 ) , 1 72 

3840 POKE MS + 65*J,32 : POKE MS +65* C J +1 ) , 3 2 

3850 ^NEXT:G0TO4040 

3860 "return 

5870 FORJ=3T010 

3 880 : 

3890 POKE riS-65*J, 172:P0KE MS -6 5* ( J + 1 ) , 1 72 

3900 POKE MS-65*J,32:P0K£ MS-65* C J +1 ) ,32 

3910 NEXT : I FC=1ORC=5THEN4090 

3920 RETURN 

3930 F0RJ=3T09 

3940 POKE MS-J,140:P0KE MS-J+1,140 

3950 POKE MS-J,32:POKE MS-J+1,32 

3960 NEXT: IFC=10RC=6THEN4190 

3970 RETURN 

3980 FORJ=4T030 STEP 4 

3990 POKE MS+J,45:POKEMS+J+1,45:POXERS+J+2,45 

4000 POKE MS + J,32:P0KE MS + J + 1 , 32 : POKE nS + J + 2,32 

4010 NEXT: IFC = 6THEN3870 

4020 GOTO4190 

4030 RETURN 

4040 FORJ=6T030 STEP3 

4050 POKE MS-J,45:POKE MS - J + 1 , 4 5 : POKE MS-J + 2,45 

4060 POKE MS-J,32:P0KE MS - J + 1 , 3 2 : POKE MS-J + 2,32 

4070 NEXT:IFC>3THEN4140 

4080 RETURN 

4090 F0RJ=5T01 

4100 POKE MS-64*J,1 24:P0KE MS -64* C J +1 ) , 1 24 

4110 POKE MS-64*J,32:P0KE MS -64* ( J + 1 ) , 3 2 

4120 NEXT: IFC>2THEN4190 

4130 RETURN 

4140 F0RJ=4T012 

4150 POKE MS+64*J,124:P0KE MS+64*CJ+1),124 

4160 POKE MS+64*J,32: POKE MS+64* C J +1 ) , 32 

4170 NEXT:1FC=2THEN3870 

4180 RETURN 

4190 F0RJ=3T0C4+C) 

4200 POKE MS-63*J,171 :POKE MS -63* C J + 1 ) , 1 7 1 

4210 POKE f1S-63*J,32:P0KE MS -63* C J + 1 ) , 3 2 

4220 NEXT: 1FC=4THEN398Q 

4230 RETURN 

4240 F0RJ=3TO<15-C) 

4250 POKE MS+63*J,171 :POKE MS +63* ( J + 1 ) , 1 7 1 

4260 POKE MS+63*J,32:P0KE MS +63* ( J + 1 } , 32 

4270 NEXT: IFC=2THEN414D 

4280 RETURN 

4290 POKE MS,1 11 

4300 IF M$="NOVEMBER"ANDTF=1THEN60T03650 

4310 RETURN 
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!n preparing for an evening of observations you might select the 
following programs: 

1 . Run TIMES to find the sidereal time at the beginning and end of 
your planned observations. 

2. Use RISES to tell you the times of sunset, sunrise, moonrise, and 
moonset. 

3. PHASE will tell you the phase of the Moon so you can find out if a 
bright Moon will interfere with your observations. 

4. If the Moon is full you can find out if there will be an eclipse by 
using ECLIP. 

5. Use SKYSET/SKYPLT to show you the sky at the time you plan to 
begin observing. You can see which planets will be in the sky when 
you plan to observe, as well as the constellations that can be seen. 

6. If a planet you are interested in is not above the horizon, you can 
use RISEStotell you when it will rise. PLNTF will tell you wherein 
the zodiac it is located. 

7. Use PRISE to find out if Mercury or Venus is visible as an eve- 
ning star, and how much time after sunset will be available for 
observation. 

8. If either Mercury or Venus is visible the evening you plan to 
observe, use MERVE to provide details of distance, phase, and 
angular diameter. 
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9. If neither planet is visible you can use MVENC to find out when 
the next suitable elongation will take place. 

10. If you are interested in Mars and you have found out that it is visi- 
ble, you can ascertain its distance and angular diameter by using 
MARSP. This program will also tell you when Mars will next be 
close to Earth at opposition. 

11. If you plan to observe Jupiter, you can use JSAT5 to identify its 
large satellites. 

12. SSTAR will tell you if there is a major meteor shower on the night 
of your observations. 

13. When resetting the polar axis of an equatorial mount, you can 
find the direction and elevation of the pole by observing transits 
and elongations of Polaris. PSTARwilltellyouthetimestodothis. 

14. Searchingfor afaint nebulaor other celestial object? Lookup its 
right ascension and declination in your star atlas and then convert 
to the current epoch using EPOCH. By usingTIMES to get sidereal 
time, you can then setthehourcircleonyourtelescopeand point 
to the correct right ascension and declination to bring the faint 
object within the field of view of a finder telescope. 

15. Ifyou wanttouse PHOTO to photograph one of the planets, you 

can find the angulardiameter of Mercury and VenusfromMERVE 
and that of Mars from MARSP. Angular diameters of Jupiter, 
Saturn, and Uranus are found by dividing 190, 158, and 68, 
respectively, by the distance of the planet in astronomical units, 
obtained from RADEC. 

16. If you are planning to observe a solar eclipse, you can find out 
which planets and bright stars will be visible duringthe eclipse by 
running SKYSET/SKYPLT for the time and date of totality, changing 
the latitude and longitude to your observing site. Making a 
photograph of your monitor screen will provide a guide for you to 
identify objects surrounding the Sun. 

17. Making a trip into another hemisphere? Learn the constellations 
in advance by using CONST and CONSH.UseSKYSET/SKYPLT to 
show you what the familiar constellations will look like from the 
opposite hemisphere, and in which direction to look for the 
planets. ;: ' . 
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Angular distance routine, 80 
Anomalistic month, 65 
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248, 271-272 
Calendar, 51, 65 
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Mayan, 91 

Moslem, 5 
Callisto, 163 

Camera/telescope combinations, 235 
Cassiopeia, display of, 193 
Celestial coordinates, 20 
Celestial equator, 19 
Celestial sphere, 75 



Chart . ■ ^ . 

graphics routine, 273 .. 

horizon, 128, 245 
Constellations, 191, 295 

POKING routine for, 140, 275 

query routine for, 208, 212 

recognition of, 192 

selection routine for, 195 

in Southern Hemisphere, 194, 209 

zodiacal, 85, 146 
Conversion routines, 176 
Conversions 

astronomical, 175 ,. .... 

coordinate, 77 . 
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Crescent moon, 66 

Data 

for asteroids, 222 ■ 

for Jupiter satellites, 221 

for Mars satellites, 222 

for Neptune satellite, 222 

planetary, 79, 112, 120, 137, 148, 
221, 248, 270 

for Saturn satellites, 221 

shape table, 139 

star, 138, 253 

for Uranus satellites, 222 
Day 

Gregorian, 29, 33 

Julian, 29, 33, 61 

mean solar, 19 
Days from epoch routines, 24, 39, 58, 
88, 98, 104, 112, 135, 148, 168, 
247 
Declination, 19, 37, 51 52, 75, 109 
Declination routine, 80, 113, 122, 
136,150,249,257,272 ., 

Display 

Apple horizon plot, 129-131 
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Display (continued) 

constellations, 193 

conversion menu, 175 

date conversions, 30, 33 

Easter day, 16 

holidays, 6 

horizon chart, 129-131, 246 

Jupiter satellites, 164-165 

lunar eclipse, 60 

lunar phases, 68 

Mars data, 84 

Mars/Earth, routine for, 89 

Mercury and Venus, 94-95, 110 

Mercury and Venus, routine for, 99, 
105 : • 

meteors, 182-183, 284 

Moon's position, 52 

planet finder, 144-145, 260-264 

planetary photography, 237 

planetary positions, 76 

Polaris data, 44 

precession conversions, 38 

rise, transit, set times, 110, 118 

solar system data, 216-217 

sort routine, 170 

Sun and planets, routine for, 105 

time conversions, 21 
Distance routines, 80, 87, 96-97, 

104, 169 
Draconic month, 65 

Earth, 18 

shadow of, 59 ' 

Easter, 4, 6, 15 " '^^^ - 

routine to determine, 12 
Eclipse, 59, 294 / 

cycle of, 59 ' • 

date routine for, 63 ■ ' 

duration of, 59 

magnitude of, 60 

magnitude routine for, 62 

sets of, 59 
Effective focal length, 236 

routine for, 239 
Elongation, 91-92 ' ' 

of Polaris, 43 
Elongation routine, 99, 106 
Epoch, 37 

Equator, celestial, 19 
Equinox, 15, 19-20, 51, 75 
Europa, 163 
Evening star, 91 



Florida coastline, 14 

Galileo, 163 

Ganymede, 163 

Graphic routine for star plots, 132, 

140, 251 
Gregorian calendar, 4-5 
Gregorian days routine, 26, 78 

Harvest moon, 66 

Heliocentric longitude routine, 80 

Holidays, 5 

routine for, 1 1 
Horizon chart, 245 
Horizon plots, of planets, 127 
Horizon silhouette, 245 
Hour, sidereal, 51, 75 
Hour angle, 19 

lo, 163 

Jupiter, 142, 163,282,295 
routine for motion of, 168 
satellites of, 162 

Kalendae, 3 

Latitude, 43, 1 92 
Leap year routine, 87 

Longitude, 192 
Lunar cycle, 65 
Lunation, 59 

Mars, 82, 1 1 6, 258, 295 

aphelion of, 83 

distance of, 84 

next opposition of, 84 

orbit of, 83 

perihelion of, 83 ■ 

position routine for, 88 

routine for angular diameter of, 87 
Measuring time, 1 
Menu of conversions, 175 
Menu of solar system data, 215 
Mercator projection, 128, 245 
Mercury, 91, 108, 294 

position routine for, 104 

rising and setting of, 109 
Meridian, 19, 51, 75 ' ' 

Meteor graphic routine, 291 
Meteor shower, 295 
Meteoroids, 181 
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Meteors, 1 80, 283 

Milky Way, 190 

Modifications, program, 146, 261, 

265, 283 , . 

Month, definitions of, 65 
Month and year ends, 88, 106, 168 
Moon, 49-51, 58, 64, 215, 244, 294 

cycles of, 3 

distance of, 51 

POKING routine for, 160, 257, 280 

position of, 52 

position routine for, 56, 136 

rise and set routine for, 124 ■ • 
Morning star, 91 
Motions, planetary, 73 

New moon, routine to determine, 70 
Node, 51,65 
North point, 43 

O'Beirne algorithm, 15 

Observations 
program use in, 294-295 
of Venus and Mercury, 93, 109 

Occupation, 166 

Opposition, 83, 85 

Options, planet finding, 259 

Orbit, of Mars, 83 

Orrery, 127 

Passover, 15 

Perigee, 51, 59 

Perihelion, 83 

Periods, of Venus and Mercury, 93 

Perturbations, 51, 53 

Phase • 

of Moon, 66 < 

of Venus and Mercury, 93 
Phase routine, 70, 101, 106 
Photography, planetary, 235, 295 
Pioneer Venus, 180 
Planets 

distance routine for, 80 ■ , 

finding, 143, 259 

inferior, 91 

orbital data for, 120-121 , 248 

photography of, 235 

plot routine for, 89 

POKING codes for, 151 

POKING routines for, 279 

position routines for, 79, 121, 150, 
248 



Planets {continued) 

rising, transit, setting of, 117 

series plot of, 144, 264 

symbols for, 128, 245 
Planetarium, 127 
Polaris, 43, 191-192, 295 
Pole star, 37, 43 
Pope Gregory, 4, 15 
Position of planets, 75 

routines to determine, 79, 121, 150, 
248 
Position of Venus and Mercury 

routine, 98 
Precession, 19, 37 
Precision of calculations, upgrading, 

296 
Program CHAIN, use of, 130 ^.■'- . 
Programs 

modifications to, 146, 261, 265, 283 

use of in observations, 294-295 
Project Galileo, 282 

Radiant, 283 

Right ascension, 19, 37, 51, 75, 109 
Right ascension routine, 80, 1 13, 122, 
136, 150,249,257, 272 
adjustingfor right ascension passing 
zero, 114 
Rising, Moon, 117 
Rising, planets, 109, 117 
Roman month, 3 

Saros, 59 

Satellites, of Jupiter, 162, 221 

Saturn, 74, 126,221 

Scalinger, Julius, 29 

Setting, Moon, 117 

Setting, planets, 109, 117 ~. 

Sidereal hour, 51, 75 _ 

Sidereal month, 65 

Sidereal time routine, 114, 123, 135 

Sirius, 3 

Solar system, 215 

Solar year, 3 

Sort routine, 93, 99 

Space shuttle, 2 

Space telescope, 28 

Sphere, celestial, 20 

Star chart selection routine, 151, 153, 

159,273 
Star charts, 153 
Star coordinates, 129 
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Star names, 192 

Star patterns, 191 

Star POKING routine, 140, 255 

Star query routine, 208, 212 

Star right ascension and declination 

routine, 139, 253 
Star right ascensions and declinations, 

266-267 
Star, "shooting," 181 
Star sphere, 19 
Sun, 174 
Synodic month, 65 

Time, 22 . 

daylight saving, 22 
for Mars observation, 83 
measurement of, 1 
rising and setting routine, 123 
sidereal, 19, 22, 117 
star, 19 

universal, 22 .- • 

zone, 22 ■ 



Transit, 43, 166 

Umbral eclipse, 59 ^ 

Upgrading precision, 296 ? 

Variables, location of, 128 
Venus, 90-91, 234, 294-295 

position routine for, 104 * 

rising of, 109 
Vernal equinox, 15, 19, 51, 75 
Viewing Mercury and Venus routine, 

107 
Voyager, 74, 142, 163 , 

Wandering stars, 73 
Week, day of, 8 

Year, solar, 3-4 

Zodiac, 143, 191 
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YOUR FIRST COMPUTER 

by Rodnay Zaks 264 pp., 150 illustr., Ref. C200A 

The most popular introduction to small computers and their peripherals: what they 

do and how to buy one. 

DON'T (or How to Care for Your Computer) 
by Rodnay Zaks 222 pp., 100 illust., Ref. C400 

The correct way to handle and care for all elements of a computer system, in- 
cluding what to do when something doesn't work. 

INTERNATIONAL MICROCOMPUTER DICTIONARY 

140 pp., Ref. X2 

All the definitions and acronyms of microcomputer jargon defined in a handy 

pocket-size edition. Includes translations of the most popular terms into ten 

languages. 

FROM CHIPS TO SYSTEMS: 
AN INTRODUCTION TO MICROPROCESSORS 
by Rodnay Zaks 558 pp., 400 illustr. Ref. C201A 

A simple and comprehensive introduction to microprocessors from both a hard- 
ware and software standpoint: what they are, how they operate, how to assemble 
them into a complete system. 

INTRODUCTION TO WORD PROCESSING 

by Hal Glatzer 216 pp., 140 illustr., Ref. VVIOI 

Explains in plain language what a word processor can do, how it improves produc- 
tivity, how to use a word processor and how to buy one wisely. 

INTRODUCTION TO WORDSTAR™ 

by Arthur Naiman 208 pp., 30 illustr., Ref. W105 

Makes it easy to learn how to use WordStar, a powerful word processing program 

for personal computers. 



^^ 



VISICALC® APPLICATIONS 

by Stanley R. Trost 200 pp., Ref. VI 04 

Presents accounting and management planning applications— from financial 

statements to master budgets; from pricing models to investment strategies. 

EXECUTIVE PLANNING WITH BASIC ^ 

byX. T. Bui 192 pp., 19illust., Ref. B380 

An important collection of business management decision models in BASIC, in- 
cluding Inventory Management (EOQ), Critical Path Analysis and PERT, Financial 
Ratio Analysis, Portfolio Management, and much more. 



BASIC FOR BUSINESS 

by Douglas Hergert 250 pp., 15 iilustr., Ref. B390 

A logically organized, no-nonsense introduction to BASIC programming for 
business applications. Includes many fully-explained accounting programs, and 
shows you how to write them. 

FIFTY BASIC EXERCISES 

by |. P. Lamoitier 236 pp., 90 illustr., Ref. B250 

Teaches BASIC by actual practice, using graduated exercises drawn from everyday 

applications. All programs written in Microsoft BASIC. 

BASIC EXERCISES FOR THE APPLE 

by J. P. Lamoitier 230 pp., 90 illustr., Ref. B500 

This book is an Apple version of Fifty BASIC Exercises. 

BASIC EXERCISES FOR THE IBM PERSONAL COMPUTER 

by J. P. Lamoitier 232 pp.. 90 illustr., Ref. B510 ^ . ,-.,,, . .. , 

This book is an IBM version of Fifty BASIC Exercises. " ' ' .. . 



INSIDE BASIC GAMES 

by Richard Mateosian 352 pp., 120 illustr., Ref, B245 ' ; 

Teaches interactive BASIC programming through games. Games are written in 
Microsoft BASIC and can run on the TRS-80, Apple II and PET/CBM. 

■ *•■ 
.f 

THE PASCAL HANDBOOK 

by Jacques Tiberghien 492 pp., 270 illustr., Ref. P320 

A dictionary of the Pascal language, defining every reserved word, operator, pro- 
cedure and function found in all major versions of Pascal. 

INTRODUCTION TO PASCAL (Including UCSD Pascal) 

by Rodnay Zaks 422 pp., 130 illustr. Ref. P310 

A step-by-step introduction for anyone wanting to learn the Pascal language- 
Describes UCSD and Standard Pascals. No technical background is assumed. 
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APPLE PASCAL GAMES 

by Douglas Hergert and Joseph T. Kalash 376 pp., 40 illustr., Ref. P360 

A collection of the most popular computer games in Pascal, challenging the reader 

not only to play but to investigate how games are implemented on the computer. 

CELESTIAL BASIC: Astronomy on Your Computer 

by Eric Burgess 228 pp., 65 illustr., Ref. B330 

A collection of BASIC programs that rapidly complete the chores of typical 
astronomical computations. It's like having a planetarium in your own home! 
Displays apparent movement of stars, planets and meteor showers. 

PASCAL PROGRAMS FOR SCIENTISTS AND ENGINEERS 

by Alan R. Miller 378 pp., 120 illustr., Ref. P340 

A comprehensive collection of frequently used algorithms for scientific and 
technical applications, programmed in Pascal. Includes such programs as curve- 
fitting, integrals and statistical techniques. 

BASIC PROGRAMS FOR SCIENTISTS AND ENGINEERS 

by Alan R. Miller 326 pp., 1 20 illustr., Ref. B240 

This second book in the "Programs for Scientists and Engineers" series provides a 

library of problem-solving programs while developing proficiency in BASIC. 

FORTRAN PROGRAMS FOR SCIENTISTS AND ENGINEERS 

by Alan R. Miller 320 pp., 1 20 Illustr., Ref. F440 

Third in the "Programs for Scientists and Engineers" series. Specific scientific and 

engineering application programs written in FORTRAN. 

PROGRAMMING THE 6809 

by Rodnay Zaks and William Labiak 520 pp., 1 50 illustr., Ref. C209 
This book explains how to program the 6809 in assembly language. No prior pro- 
gramming knowledge required. 

PROGRAMMING THE 6502 

by Rodnay Zaks 388 pp., 1 60 illustr., Ref. C202 

Assembly language programming for the 6502, from basic concepts to advanced 

data structures. 

6502 APPLICATIONS BOOK 

by Rodnay Zaks 286 pp., 200 illustr., Ref, D302 

Real-life application techniques: the input/output book for the 6502. 

ADVANCED 6502 PROGRAMMING 

by Rodnay Zaks 292 pp., 140 illustr., Ref. G402A 

Third in the 6502 series. Teaches more advanced programming techniques, 

using games as a framework for learning. 



PROGRAMMING THE Z80 

by Rod nay Zaks 626 pp., 200 illustr., Ref. C280 

A complete course in programming the Z80 microprocessor and a tiiorough in- 
troduction to assembly language. » 

PROGRAMMING THE Z8000 

by Richard Mateosian 300 pp., 1 24 illustr., Ref. C281 

How to program the Z8000 16-bit microprocessor. Includes a description of the 

architecture and function of the Z8000 and its family of support chips. 

THECP/M® HANDBOOK (with MP/M™) 

by Rod nay Zaks 324 pp., 1 00 illustr., Ref. C300 

An indispensable reference and guide to CP/M— the most widely-used operating 

system for small computers. 

MASTERING CP/M® 

by Alan R. Miller 320 pp., Ref. C302 

For advanced CP/M users or systems programmers who want maximum use of the 

CP/M operating system ... takes up where our CP/M Handbook leaves off. 

INTRODUCTION TO THE UCSD p-SYSTEM™ 

by Charles W. Grant and |on Butah 250 pp., U) illustr., Ref. P370 
A simple, clear introduction to the UCSD Pascal Operating System; for beginners 
through experienced programmers. _ . 

A MICROPROGRAMMED APL IMPLEMENTATION 

by Rod nay Za ks 350pp., Ref. z 1 

An expert-level text presenting the complete conceptual analysis and design of an 

APL interpreter, and actual listing of the microcode. 

THE APPLE CONNECTION 

by James W. Coffron 228 pp., 1 20 illustr., Ref. C405 

Teaches elementary interfacing and BASIC programming of the Apple for connec- 
tion to external devices and household appliances. 

MICROPROCESSOR INTERFACING TECHNIQUES 

by Rod nay Zaks and Austin Lesea 458 pp., 400 illust,, Ref. C207 
Complete hardware and software interconnect techniques, including D to Aeon- 
version, peripherals, standard buses and troubleshooting. 
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SELF STUDY COURSES 

fec^o.ded /,.e a, sen^in.rs ,ivon by recognized professionals in the microprocessor 



l^l'^PPUCTORYSHOKT COURSES- 

Each ,ncludes ,w„ cassettes plus special coordinated Workbook av. hours,. 

SI-INTRODUCTION TO MICROPROCESSORS 

"n762Z'Zir" ""'' ''"''"'''"' ^^- concept'TppLions. advantages 

S2-PROCRAMMINC MICROPROCESSORS 
S3-pESIGNING A MICROPROCESSOR SYSTFM 



gS5^C70/?y COMPREHENSIVE . Kr, ■ ,.„ 

f ac/, /nc/ade. a 300-500 page .e:./na. book and seven o. e/gM C90 ca.«e««. 

SB3— MICROPROCESSORS 

connect ot a system. The basic hardware course (12 hours), 
Th^elTsS°'''*°'^^**°'*''«Of^ RAMMING 



ADVANCED COURSES: 

Each includes a 300-500 page workbook and three or four C90 cassettes. 



SB3— SEVERE ENVIRONMENT/MILITARY 
MICROPROCESSOR SYSTEMS 

Complete discussion of constraints, techniques and systems for severe environ- 
mental applications, including Hughes, Raytheon, Actron and other militarized 
systems (6 hours). 

SB5— BIT-SLICE 

Learn how to build a complete system with bit slices, Also examines innovative 
applications of bit slice techniques (6 hours). 

SB6— INDUSTRIAL MICROPROCESSOR SYSTEMS 

Seminar examines actual industrial hardware and software techniques, com- 
ponents, programs and cost {41/2 hours). 

SB7— MICROPROCESSOR INTERFACING 

Explains how to assemble, interface and interconnect a system {6 hours). 
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BAS 65™ CROSS-ASSEMBLER IN BASIC 

8" diskette, Ref. BAS 65 

A complete assembler for the 6502, written in standard Microsoft BASIC under 

CP/M® . 

8080 SIMULATORS 

Turns any 6502 into an 8080. Two versions are available for APPLE M. 
APPLE II cassette, Ref. S6580-APL{T) 
APPLE II diskette, Ref. S6580-APL(D) 
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BRING THE PLANETARiOIVl INTO YOUR HOME .... 

Explore the universe through your computer— no more hunt- 
ing for your almanac, digging up that elusive astronomical 
magazine, or sitting down for hours of laborious calculations 
on your pocket calculator. This book offers programs that are 
useful to the serious amateur astronomer as well as the 
occasional stargazer. The programs convert time from one 
system of measurement to another, calculate and display the 
positions of the Sun, Moon, planets, and stars for any date and 
at any location, teach you to recognize the constellations, and 
more. Knowledge of the stars and solar system is at your 
finger tips in Celestial BASIC. 
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